Discussion :

[tazamorte]

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
?

[cafeine]

Hello,

oui :
http://www.developpez.net/forums/sho...d.php?t=258635

[tazamorte]

Super cela marche super bien