mise à jour classeur automatiquement des modif.

Bonjour,

À coller dans ThisWorkbook :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Range("A1").Value = Now
End Sub


A+
Nicolas B.

j'ai des classeurs sous excel.je veux que la date de mise à jour s'affiche
automatiquement.
merci

Bonjour,

Dans un module:

Function dernière_sauvegarde()
Application.Volatile
dernière_sauvegarde = ThisWorkbook.BuiltinDocumentProperties("Last
Save Time")
End Function

Dans le tableur: =dernière_sauvegarde()

Cordialement JB

j'ai des classeurs sous excel.je veux que la date de mise à jour s'affi che
automatiquement.
merci