EXPORTER DES GRAPHIQUES D'UN FICHIER EXCEL EN IMAGES

Signaler
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Messages postés
1
Date d'inscription
mercredi 10 juillet 2013
Statut
Membre
Dernière intervention
10 juillet 2013
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/42814-exporter-des-graphiques-d-un-fichier-excel-en-images

Messages postés
1
Date d'inscription
mercredi 10 juillet 2013
Statut
Membre
Dernière intervention
10 juillet 2013

J'ai trouvé l'erreur du script présenté en haut !
Il s'agit de la variable "i" qui n'est pas remise à 0 dans la première boucle du for.
Voici un code SANS erreur qui extrait au format GIF TOUS les graphiques de TOUS les onglets du fichier. Ce fichier Excel est à convertir en .XLSM

' -----------------------------------------------------------
' DEBUT

Sub ExportGraph()

' Chemin où l'on veut exporter les graphiques
Destination = "C:\Users\moi\Desktop"

' Déclaration des variables
Dim Sheets As Variant
Dim NomSheet As String
Dim Graph As Variant
Dim NomGraph As String
Dim Fich As String
Dim i As Byte

' Boucle parcourant les feuilles
For Each Sheets In ActiveWorkbook.Sheets
NomSheet = Sheets.Name
i = 0
' On écrit dans la boite de message le nom de la feuille
'MsgBox NomSheet
' On parcours les graphiques de la feuille
For Each Graph In Sheets.ChartObjects
i = i + 1
' Sélection d'un graphique
Sheets.ChartObjects(i).Activate
NomGraph = ActiveChart.Name
' On affiche le nom du graphique exporté
'MsgBox NomGraph

' On lance la procédure d'export
ActiveChart.Export Filename:=Destination & NomGraph & ".gif", FilterName:="GIF"
Next
Next
End Sub

' -----------------------------------------------------------
' FIN

Il manquait "i=0". Testé avec succès le 10/07/2013 dans un fichier .XLSM.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
l'erreur ne semble pas venir du type de variable...
ca ressemble plutot à un "pas de ActiveWorkBook"
Messages postés
3
Date d'inscription
jeudi 14 février 2008
Statut
Membre
Dernière intervention
2 avril 2008

salut,

j'ai déclaré oSheet comme objet.
mais le même problème qui persiste
erreur d'exécution 91
"variable objet ou variable bloc With non définie" le problème est dans "ActiveWorkbook.sheets"

Merci de me répondre.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
As Object:

Dim oSheet As Object
Afficher les 22 commentaires