Afficher un graphique sur un userform

Bonjour,

J'ai fais un programme VBA, celui ci consiste à afficher des graphiques sur un userform mais celui-ci ne fonctionne pas. Pouvez vous regarder mon programme et me dire ce qu'il ne va pas.

Merci d'avance

Bonjour Jonabay18330

Il faut mettre le code dans l'Userform

Private Sub UserForm_Initialize()
  Set LeGraph = Worksheets("Feuil1").ChartObjects(1).Chart
  NomImage = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
  Set LeGraph2 = Worksheets("Feuil1").ChartObjects(2).Chart
  NomImage2 = ThisWorkbook.Path & Application.PathSeparator & "temp2.gif"

  LeGraph.Export Filename:=NomImage, FilterName:="GIF"
  LeGraph2.Export Filename:=NomImage2, FilterName:="GIF"

  Me.Image1.Picture = LoadPicture(NomImage)
  Me.Image2.Picture = LoadPicture(NomImage2)
End Sub

A+

Hello,

Ta macro "MetLimage" est juste, mais tu ne l’appelles nulle part !

Tu veux qu'il la lance quand tu ouvres l'UserForm ? Alors tu dois mettre ce code dans l'UserForm (click droit sur UserForm1 dans la fenêtre de projet VBA/Code)...

Private Sub UserForm_Initialize()

    Call MetLimage

End Sub

Aussi, tu peux effacer la ligne UserForm1.Show dans la macro "MetLimage" elle ne sert à rien.

Edit : Grand Salut Bruno

Bonjour Hulk,

Merci pour ta réponse, mais j'ai un souci car quand je mets plusieurs graphiques sur un userform cala ne fonctionne plus (Affichage: "erreur d'exécution 481 Image incorrect"). Peux tu me dire ce qui ne vas pas ?

Merci

Bonne soirée