Sub ExportGraphActif()
'exporte un graph sous format gif dans le dossier du classeur en cours
Dim Chemin As String
Dim Graph As String
Graph = InputBox("Entrez le nom d'exportation du graphique, sans extension")
Chemin = ActiveChart.Parent.Parent.Parent.Path
ActiveChart.Export Chemin & "/" & Graph & ".gif", "GIF"
End Sub