Bonjour,
Tu peux passer par cette propriété de ton classeur :
Code :
- Sub DateEnregistrement()
- Range("A1" ) = ActiveWorkbook.BuiltinDocumentProperties("Last save time" )
- End Sub
|
Ou le faire toi même en passant par l'évènement de ton classeur BeforeSave :
Code :
- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
- Range("A1" ) = Now()
- End Sub
|
L'intérêt de la 2ème solution est que avant de mettre à jour cette date, tu peux tester si telle ou telle autre cellule a été modifiée en mettant à jour une variable grâce à une autre macro évènementielle par exemple.
Message édité par vave le 09-05-2012 à 07:54:34
---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
