Graphique dans Userform (Excel 2007)

Bonjour,

Problèmes avec un graphique voici le code

 Private Sub Graph()

Set legraph = Worksheets("CommandesClts").ChartObjects(1).Chart
graphCA = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
legraph.Export Filename:="graphCA", FilterName:="GIF"
CA.Image1.Picture = LoadPicture("graphCA")
CA.Show

End Sub

Ce graphique je souhaite le faire apparaitre dans une picturebox dans un userform. Dans l'idéal j'aurais aimé que le graphique se génère dès que l'UF apparait...

Erreur de compilation affichée "Sub ou Function non définie" en me mettant en Surbrillance "LOAD PICTURE" Je ne comprends absolument pas pourquoi j'ai tout essayé : mettre le code dans un bouton, dans un module seul mais rien n'y fait... J'ai bien vérifié toutes les appellations. Que veux dire cette erreur qui met en surbrillance LoadPicture ?

Bonne journée à vous.

à voir : CA.Image1.Picture = LoadPicture(graphCA)

J'ai tenté avec ou sans Guillemets le

Même résultat ...

J'ai trouvé un exemple codé légèrement différemment :

Set legraph = Sheets("CommandesClts").ChartObjects(1).Chart

graphCA = ThisWorkbook.Path &"\temp.gif"

legraph.Export Filename:=graphCA, FilterName:="GIF"

Image1.Picture = LoadPicture(graphCA)

à essayer

Bonsoir

Bonsoir psdi

A tester (même code)

Private Sub Graph()

  Set legraph = Worksheets("CommandesClts").ChartObjects(1).Chart
  graphCA = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
  legraph.Export Filename:=graphCA, FilterName:="GIF"
  CA.Image1.Picture = LoadPicture(graphCA)
  CA.Show
End Sub

Bonsoir

Dans le VBA, tu dois avoir dans les references

OLE automation coché sinon tu n'arrivera à rien

Bonsoir,

MERCI infiniment, en effet, c'etait "OLE Automation" qui était décoché.

Problème résolu