XL 2010 Sauvegarde d'une feuille au choix

[Scorpio]

Bonjour les Membres,

Alors voici mon soucis,
Par ce code trouvé sur le net, j'essaye de faire la sauvegarde d'une feuille, seulement une feuille à la fois, de la renommer, et de la placer dans un répertoire.
Y aurait-il quelqu'un, s'i vous plaît, pour me donner un coup de pouce
D'avance merci.

A++++

 

[Scorpio]

Voici un autre code, ça fonctionne, mais ne copie pas la feuille active

Sub ArchiveV1()
Dim Chemin As String, nomFichier As String, extension As String
Chemin = "C:\Users\Gd\Downloads\"
Sheets("Feuil4").Copy 'je pense le pr est ici, j'aimerais avoir la feuille active
nomFichier = "Feuille de présence"
r = InputBox("Donnez le nom :", "Nom à ajouter")
If r = "" Then End
nomFichier = nomFichier & " " & r
extension = ".xlsx"
With ActiveWorkbook
.SaveAs Filename:=Chemin & nomFichier & " " & "-" & Format(Now, "dd mmmm yyyy hh.mm.ss") & "" & extension
.Close
End With
End Sub

A++++

 

[Scorpio]

Voici un autre code, ça fonctionne, mais ne copie pas la feuille active

Sub ArchiveV1()
Dim Chemin As String, nomFichier As String, extension As String
Chemin = "C:\Users\Gd\Downloads\"
Sheets("Feuil4").Copy 'je pense le pr est ici, j'aimerais avoir la feuille active
nomFichier = "Feuille de présence"
r = InputBox("Donnez le nom :", "Nom à ajouter")
If r = "" Then End
nomFichier = nomFichier & " " & r
extension = ".xlsx"
With ActiveWorkbook
.SaveAs Filename:=Chemin & nomFichier & " " & "-" & Format(Now, "dd mmmm yyyy hh.mm.ss") & "" & extension
.Close
End With
End Sub

A++++

Y aurait-il quelqu'un pour me donner un coup de main, merci

 

[JCGL]

Bonjour à tous,

Peux-tu essayer avec :

ActiveSheet.Copy 'je pense le pr est ici, j'aimerais avoir la feuille active

 

[Scorpio]

Bonjour JCGL,
Super, pil dessus.
ça fonctionne, magnifique, merci beaucoup à toi
A++++