Copie d'un classeur en le nomant "classeur, date, heure"

[Scoy]

Bonjour,
Je voudrais, a partir d'un bouton du classeur, le copier dans le même dossier mais avec un nom different contenant la date et l'heure de la copie....

SVP HELP suis pas doué.....
merci

 

[michel]

bonsoir Scoy

tu peux essayer

Sub CreerCopieFichier()
Dim Fichier As String
Fichier = "Enregistrement " & Format(Date, "d mmmm yyyy") & " " & Format(Time, "h mm ss") & ".xls"
ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & Fichier'copier le fichier
'ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Fichier'enregistrer le fichier
End Sub

tu peux choisir entre l'option
SaveCopyAs : qui enregistre une copie du classeur dans un fichier sans modifier le classeur ouvert
SaveAs : qui enregistre le classeur ouvert


bonne soiree
MichelXld

 

[@+Thierry]

Bonjour Scoy, Michel, le Forum

Une autre approche automatisée avec utilisation de GetOpenFile dans ce fil :

Lien supprimé

Bon Week End
@+Thierry

 

[Scoy]

Merci les gars!!! C'est nickel!
J'ai aussi un autre problème(après je vous embetes plus...)
J'éssaye d'ajouter a ce bouton un code pour qu'il éfface(après la sauvegarde) certaine cellule située sur des feuilles différentes...
Mais j'ai une erreur, "la méthode select de la classe range a échoué"

Sheets("Feuille1").Select

Range("J9:J16").Select
Selection.ClearContents
Sheets("feuille2").Select

Range("E12:F20").Select
Selection.ClearContents
Sheets("feuille3").Select

Range("G8:H22").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12



merci!!!

 

[Scoy]

Merci, g trouvé tout seul!!!
a+