Vous utilisez cette macro pour enregistrer un historique des versions
Il existe de nombreux classeurs qui doivent être enregistrés à intervalles fixes. Si vous utilisez toujours un nom différent, vous pouvez alors suivre exactement quelles données ont été trouvées dans le classeur à quel moment.
Il est particulièrement utile d'utiliser un horodatage lors de l'enregistrement du fichier. Vous utilisez une combinaison de date et d'heure comme nom de fichier. Par exemple, si le fichier est enregistré le 27/08/2008 à 10h32 et 26 secondes, le nom du fichier est :
20080827-103226
L'avantage d'un tel horodatage est que l'affichage des fichiers par ordre alphabétique (par exemple avec l'explorateur Windows) correspond également à l'ordre chronologique.
La définition manuelle des noms de fichiers actuels prend du temps et est sujette aux erreurs. Utilisez plutôt la macro suivante :
Sub WithTimestampSave ()
Horodatage de la date en tant que chaîne
Estomper maintenant en tant que date
Maintenant = Maintenant ()
Horodatage = Année (Date) & Format (Mois (Date), "00") & Format (Jour (Date), "00")
Date Horodatage = Date Horodatage & "-" & Format (Heure (Maintenant), "00") & Format (Minute (Maintenant), "00") & Format (Seconde (Maintenant), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & horodatage & ".xls")
Fin du sous-marin
Lorsque vous appelez la macro, le classeur actif est à nouveau enregistré dans le chemin de stockage précédent. L'horodatage est utilisé comme nom de fichier, comme illustré dans la figure suivante :
Si vous souhaitez également inclure cette fenêtre dans votre macro, intégrez la ligne de programme suivante en tant que nouvelle ligne séparée devant la ligne Fin du sous-marin:
MsgBox (ActiveWorkbook.Path)