XL 2010 Sauvegarde d'une feuille au choix

Scorpio

XLDnaute Impliqué
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++++
 

Pièces jointes

  • TestSauv.xlsm
    17.4 KB · Affichages: 43

Scorpio

XLDnaute Impliqué
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

XLDnaute Impliqué
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
 

Discussions similaires

Statistiques des forums

Discussions
312 962
Messages
2 093 989
Membres
105 906
dernier inscrit
aifa