Bonjour à tous,
J'ai trouvé ce code sur le site pc-astuces:
Cela fonctionne parfaitement bien mais j'aimerai ajouter une ligne pour exporter dans un dossier en particulier:
C:\Users\Icedarts\Desktop\Mon site\Fichiers images\graph
Et aussi est-il possible que le nom de l'image exporter porte le nom de la feuille ou se trouve le graphique?
Merci d'avance.
J'ai trouvé ce code sur le site pc-astuces:
Code:
Sub SauveGIF()
Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"
ActiveChart.Export Filename:=Fname, FilterName:="GIF"
End Sub
Cela fonctionne parfaitement bien mais j'aimerai ajouter une ligne pour exporter dans un dossier en particulier:
C:\Users\Icedarts\Desktop\Mon site\Fichiers images\graph
Et aussi est-il possible que le nom de l'image exporter porte le nom de la feuille ou se trouve le graphique?
Merci d'avance.