Salut,
J'ai un onglet avec 2 graphiques. Je les exporte en fichier image pour les afficher ensuite dans un UserForm.
J'ai le code suivant :
Set Feuille = Sheets("Graphique")
Set MonGraphique = Feuille.ChartObjects(1).Chart
Dossier = ActiveWorkbook.Path
MonGraphique.Export Dossier & "\Annual.jpg"
Set MonGraphique = Nothing
Set MonGraphique = Feuille.ChartObjects(2).Chart
MonGraphique.Export Dossier & "\Cumulated.jpg"
UserForm1_Menu.Annuel.Picture = LoadPicture(Dossier & "\Annual.jpg")
UserForm1_Menu.Annuel.PictureSizeMode = 1
UserForm1_Menu.Cumulé.Picture = LoadPicture(Dossier & "\Cumulated.jpg")
UserForm1_Menu.Cumulé.PictureSizeMode = 1
Le premier graphique fonctionne sans problème, mais le deuxième plante aléatoirement. En fait le fichier Cumulated.jpg fait 0 octets.
Si vous avez une explication je prends, parce que là...
Manu