Exporter graphique vers image

[mat-tech]

Bonjour à tous,
j'aimerais exporter 4 graphiques en une seul image, miracle j'ai trouvé exactement le code qu'il me falait dans les Faqs, mais il y a une erreur ...
J'ai 4 graphiques à exporter sur la "Feuil2"

 
Option Explicit
 
Private Const Fichier As String = "C:\ImageTemp.gif"
   
   
Sub ExporteGIF_GroupeGraphiques()
   Dim Sh As Shape
   Dim Tableau(1 To 4) As String
   Dim i As Integer, Nb As Integer
   'Supprime l'image temporaire si elle existe
   If Dir(Fichier) <> "" Then Kill Fichier
   
    'Boucle sur les 4 premiers graphiques de la feuille active
    For i = 1 To 4
        Tableau(i) = ActiveSheet.ChartObjects(i).Name
    Next
    
    'Regroupe les graphiques
    Set Sh = ActiveSheet.Shapes.Range(Tableau).Group
 
    
    'copie la forme
    Sh.CopyPicture
    'crée un graphique
    With ActiveSheet.ChartObjects.Add(0, 0, _
                        Sh.Width, Sh.Height).Chart
        .Paste 'colle l'image dans graphique
        ' enregistre le graphique au format gif
        .export Fichier, "GIF"
    End With
    
    Nb = ActiveSheet.ChartObjects.Count
    'supprime le graphique
    ActiveSheet.ChartObjects(Nb).Delete
    
    Sh.Ungroup
End Sub
 
 

[mat-tech]

Sans doute parceque l'erreur est :

Erreur d'exécution '1004'
Ce paramètre n'a pas une valeur valide

Esi je lance le débogage, il stop à la ligne

Set Sh = ActiveSheet.Shapes.Range(Tableau).Group

[fring]

Merci d'avoir précisé l'erreur

J'ai ramé sur ce code...je suis parvenu à le faire fonctionner en changeant la déclaration de la variable Tableau de type Variant au lieu de type String

Dim Tableau(1 To 4) As Variant

[mat-tech]

Est-il possible, lors de l'enregistrement de l'image d'avoir l'invite 'Enregistrer sous ...', afin de pouvoir choisir le nom et l'endroit où on veut enregistrer l'image ainsi créé ?

[fring]

Un truc de ce style ? (remplace le code initial par celui-ci)

Option Explicit
   
Sub ExporteGIF_GroupeGraphiques()
Dim Fichier As Variant, Tableau(1 To 4) As Variant
Dim Sh As Shape, i As Integer, Nb As Integer
 
'Boucle sur les 4 premiers graphiques de la feuille active
For i = 1 To 4
    Tableau(i) = ActiveSheet.ChartObjects(i).Name
Next
 
'Regroupe les graphiques
Set Sh = ActiveSheet.Shapes.Range(Tableau).Group
 
'copie la forme
Sh.CopyPicture
 
'crée un graphique
With ActiveSheet.ChartObjects.Add(0, 0, Sh.Width, Sh.Height).Chart
    .Paste 'colle l'image dans graphique
    
    ' enregistre le graphique au format gif
    Fichier = Application.GetSaveAsFilename(fileFilter:="Fichier Image (*.gif), *.gif")
    If Fichier = False Then
        MsgBox "vous avez annulé l'opération" & Chr(10) & "l'image ne sera pas exportée"
    Else
        .Export Fichier, "GIF"
    End If
End With
 
Nb = ActiveSheet.ChartObjects.Count
'supprime le graphique
ActiveSheet.ChartObjects(Nb).Delete
 
Sh.Ungroup
End Sub

Pour info afin de compléter l'explication de la FAQ, quelle version d'Excel utilises-tu ?

[mat-tech]

Dans le bas de l'image exporter est-il possible d'y inclure le pieds de page de la Feuil d'où ont été copiés les graphiques ?

[fring]

Si c'est toujours d'actualité ...une solution via une zone de texte dans le fichier joint.

test graph.zip
.

[mat-tech]

Magnifique, c'est exactement la réponse à ma question, merci beaucoup