Transformer graphique en image

Tout d'abord bonjour à tous et à toutes

je souhaite transformer un graphique en image

j'ai suivi ce tuto :

voici le lien de mon graphique :

Lorsque j'essaie de transformer le graphique en image j'ai cette anomalie : "erreur d'exécution 11 : division par zéro"

pourriez vous éclairer ma lanterne svp ?

par avance merci

Bonsoir,

Une simple question de guillemets......

remplace par :

Sub SauveGIF()
Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"
ActiveChart.Export Filename:=Fname, FilterName:="GIF"
End Sub

Bonne soirée

cousinhub a écrit :

Bonsoir,

Une simple question de guillemets......

remplace par :

Sub SauveGIF()
Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"
ActiveChart.Export Filename:=Fname, FilterName:="GIF"
End Sub

Bonne soirée

merci de ta réponse, toujours actif et toujour réactif