Une fonction très utile peut être vue immédiatement après l’ouverture d’un classeur: la dernière modification de ce classeur. Ces informations peuvent être déterminées via la propriété BuiltinDocumentProperties ou via l’événement Workbook_BeforeSave. Juste avant que cet événement ne se produise, vous pouvez écrire la date actuelle dans une cellule spécifique. L’événement Workbook_BeforeSave garantit ensuite automatiquement que cette dernière entrée est également enregistrée.

Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.Sheets(1).Range("B1").Value = Now()
End Sub