Bonjour
J'ai un fichier à l'intérieur duquel il ya un bouton qui permet d'exporter le graphique.
Lorsque j'appuie sur ce bouton, l'export se passe bien et le fichier sauvegardé est de la forme : export graph 01.gif
Seulement lorsque j'appuie une seconde fois sur ce bouton, le fichier sauvegardé écrase le précédent ce qui ne m'arrange pas. Je souhaiterais que le second fichier correspondant à la seconde activation du bouton se nomme export graph 02.gif et ainsi de suite.
Je ne vois pas comment faire
Ci dessous la macro activé lors de l'activation du bonton

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub exportgraph()
'Nom = "a effacer"
chemin = "C:\Users\riff11\Documents\"
 
 
ActiveSheet.ChartObjects("Graphique 1").Chart.Export Filename:=chemin & nom & " export graph 01" & " .gif"
 
 
MsgBox "exportation graphique réussie"