Discussion :

[fmris]

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"

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub exportgraph()
dim NumFichier as integer
NumFichier =1
'Nom = "a effacer"
chemin = "C:\Users\riff11\Documents\"
 Fichier=dir(chemin & nom & " export graph " & format(NumFichier ,"#00") & ".gif")
 while Fichier<>""
NumFichier =NumFichier +1
    Fichier=dir(chemin & nom & " export graph " & format(NumFichier ,"#00") & ".gif")
wend
ActiveSheet.ChartObjects("Graphique 1").Chart.Export Filename:=chemin & nom & " export graph " & format(NumFichier ,"#00") & ".gif"
 
 
MsgBox "exportation graphique réussie"

[fmris]

Nickel ca marche merci beaucoup
j'ai un autre point ou je suis bloqué dans une autre discussion (Intégration d'une private sub "Worksheet_Change" via une macro ). Est il possible de le regarder svp ?