Dans l'éditeur VBA
tu crées un nouveau module et tu colles ce code
Sub PrintGraph()
Dim Graphic As Object
Dim CheminDossier$
Dim I%, lgChemin&
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
lgChemin = .SelectedItems.Count
CheminDossier = .SelectedItems(lgChemin)
End With
For Each Graphic In ThisWorkbook.Sheets("Graph").ChartObjects
Debug.Print Graphic.Index
Graphic.Chart.Export Filename:=CheminDossier & "\Graph" & I & ".gif"
DoEvents
I = I + 1
Next
End Sub
Après pour lancer la macro:
Outils=>Macros=>macros