Export de graphiques en fichiers image

Y compris Power BI, Power Query et toute autre question en lien avec Excel
U
Uma31
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 23 avril 2014
Version d'Excel : 2007

Message par Uma31 » 28 juin 2019, 14:36

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
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 4'849
Appréciations reçues : 239
Inscrit le : 16 mars 2017
Version d'Excel : 2010 sur PC

Message par i20100 » 28 juin 2019, 14:51

Bonjour,

fait un essai en enlevant la ligne
Set MonGraphique = Nothing
Merci! de faire un clic sur le bouton résolu pour nous aider à t'aider.
isabelle
Avatar du membre
Florian53
Membre fidèle
Membre fidèle
Messages : 461
Appréciations reçues : 31
Inscrit le : 3 juin 2015
Version d'Excel : Office 365

Message par Florian53 » 28 juin 2019, 14:52

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
Les grandes réussites sont le fruit de l'apprentissage durable. Apprenez à apprendre chaque jour.

:btres:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message