Export de graphiques en fichiers image

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

Bonjour,

fait un essai en enlevant la ligne

Set MonGraphique = Nothing

Enlève cette ligne qui ne sert pas a grand chose, comme tu re affecte ton set après :

Set MonGraphique = Nothing

Edit: Bonjour i20100, même constat que toi

Rechercher des sujets similaires à "export graphiques fichiers image"