Chaque fois que Mathew ferme un classeur, il aimerait qu’Excel crée une sauvegarde datée de ce classeur, ce qui signifie qu’il est enregistré sous un nom de fichier qui inclut la date. Ainsi, s’il enregistre « AnyWorkbookName », il le sauvera non seulement sous ce nom, mais également sous le nom « AnyWorkbookName [Today’s Date & Time] ». Mathew est sûr que cela doit être fait avec VBA, mais il ne sait pas comment s’y prendre.

Il existe un certain nombre de macros qui pourraient être développées pour effectuer cette tâche. La plupart d’entre eux sont des variations sur un thème (pour ainsi dire), donc pour nos besoins un seul exemple devrait suffire.

La macro suivante, juste avant de fermer le classeur, enregistre le classeur avec une date et une heure ajoutées à la fin du nom de fichier.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim sFileName As String     Dim sDateTime As String

With ThisWorkbook         sDateTime = " (" & Format(Now, "yyyy-mm-dd hhmm") & ").xlsm"

sFileName = Application.WorksheetFunction.Substitute _           (.FullName, ".xlsm", sDateTime)

.SaveCopyAs sFilename     End With End Sub

La macro rassemble la chaîne de date et d’heure dans la variable sDateTime. Il est ensuite inséré dans le nom de fichier du classeur à l’aide de la fonction de feuille de calcul SUBSTITUTE. (La chaîne date / heure est effectivement insérée juste avant l’extension de nom de fichier.) La macro suppose que le classeur est enregistré en tant que fichier XLSM car il doit contenir des macros, telles que la macro pour effectuer cette sauvegarde.

La macro doit être placée dans le module ThisWorkbook pour le classeur.

Cela garantit qu’il s’exécutera juste avant la fermeture du classeur.

Il existe également des compléments tiers qui peuvent effectuer cette tâche. Voici quelques-uns que vous voudrez peut-être vérifier.

http://www.jkp-ads.com/Download.asp#AutoSafe http://www.asap-utilities.com

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (13195) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365.