Discussion :

[philguio]

Bonjour
j'ai un petit soucis. Voila dans mon application sous vb2005 express mes résultats sont envoyés dans une feuille excel, la pas de pb. Ce que je cherches à faire c'est: si la condition A est validé, alors l'image 17.bmp doit apparaître dans la cellule A6 de mon formulaire. Je n'ai aucun pb avec du text mais avec une image et "ben dur dur???"


Je continue de chercher.
merci
@+
Phil

[bidou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim appXl As New Excel.Application
        Dim Classeur As Excel.Workbook = appXl.Workbooks.Add
        Dim Feuille As Excel.Worksheet = DirectCast(Classeur.Worksheets.Item(1), Excel.Worksheet)
        Dim polo As Int32 = 2
        If polo > 1 Then
            Dim Plage As Excel.Range = DirectCast(Feuille.Cells(6, 1), Excel.Range)
            Feuille.Shapes.AddPicture("D:\svg\developpez\bidou.jpg", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue, CSng(Plage.Left), CSng(Plage.Top), 100, 100)
            appXl.Visible = True
        End If
 
    End Sub

[philguio]

Merci , ça marche
le seul petit soucis maintenant il faut que l'image tienne dans une cellule, et la elle est en dehors, faut il travailler l'image ou definir le cadre de la cellule.

@+
Phil

[bidou]

il faut changer 100 et 100 dans mon exemple qui représente la hauteur et la largeur

[philguio]

merci
mais peut on utiliser cette solution pour l'ajouter dans une cellule nomée G8 par exemple,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
.Range("G18").Value = a16

et ou a16 correspondrait à une condition if

et en plus je cherche a l'intégrer dans une feuille bien prcise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Workbooks.Open("C:\FeuilleMatchA.xls")

je continue de chercher
@+
phil

[bidou]

je n'ai pas compris