Discussion :

[panda78]

Bonjour,
hier Jackborogar m'a proposé un code pour afficher une image sur un useform, voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton3_Click()
 
        'Image1.Visible = True
        Set g = ThisWorkbook.Worksheets("Synthèse").Shapes("Image 3")  ' nom de l'image
        g.CopyPicture
        ActiveSheet.ChartObjects.Add(0, 0, g.Width, g.Height).Chart.Paste
        ActiveSheet.ChartObjects(1).Chart.Export Filename:="Image 1.gif", FilterName:="gif"
        ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
 
        UserForm2.Image1.Picture = LoadPicture("Image 1.gif")
        UserForm2.Show
End Sub

le soucis c'est quand je clique sur le bouton l'image apparait bien dans l'userform mais aussi sur la feuille de calcul et j'aimerai bien éviter ça, merci.

[Daniel.C]

Bonjour,

Remplace "ActiveSheet" par une autre feuille.

[panda78]

c'est bizarre ça ne marche que pour ma Feuil3 et ça met toujours l'image en haut à gauche de la feuille3 du classeur

[panda78]

c'est bon ça marche merci!

[jackborogar]

Tu peux pas nous envoyer ton classeur que je te fasse ça?!

[panda78]

Inutile le problème résolu j'ai fais comme ça :
Private Sub CommandButton3_Click()

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
                Set g = ThisWorkbook.Worksheets("Synthèse").Shapes("Image 7")  ' nom de l'image
        g.CopyPicture
        ThisWorkbook.Worksheets("Synthèse").ChartObjects.Add(0, 0, g.Width, g.Height).Chart.Paste
        ThisWorkbook.Worksheets("Synthèse").ChartObjects(1).Chart.Export Filename:="Image 1.gif", FilterName:="gif"
        ThisWorkbook.Worksheets("Synthèse").Shapes(ThisWorkbook.Worksheets("Synthèse").Shapes.Count).Delete
 
        UserForm2.Image1.Picture = LoadPicture("Image 1.gif")
        UserForm2.Show
 
 
 
 
End Sub

en tout cas encore merci pour ton aide de hier ça m'a été très précieux!
Cordialement