Bonjour

Je sais qu'il est possible de faire un export d'un graphique en gif avec ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
'***********************************************************
'                    EXPORT DU GRAPH
'***********************************************************
'La routine ci-dessous permet de sauvegarder le graphe actif
Sub PrintChart()
Dim FName As String, NomGraphe As String
 
NomGraphe = Right(ActiveChart.Name, Len(ActiveChart.Name) - Len(ActiveSheet.Name) - 1)
With ActiveSheet.ChartObjects(NomGraphe).Chart
    FName = Application.GetSaveAsFilename("", "Fichier Gif (*.GIF),*.GIF,Fichier JPEG (*.JPG),*.JPG,Tous fichiers (*.*),*.*")
    .Export Filename:=FName, FilterName:=TypeImg, Interactive:=True
End With
End Sub
J'aimerai savoir s'il serait possible de faire la même chose avec un tableau
?