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....
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
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é"