Date dernier enregistrement

Marsh Posté le 08-05-2012 à 23:14:58

Bonjour,

J'ai un tableau Excel 2010 très simple
Je souhaite afficher la date du dernier enregistrement dans une cellule de ce tableau

Quelqu'un a-t-il uen idée svp ?

Merci d'avance pour votre aide

Marsh Posté le 08-05-2012 à 23:14:58

Marsh Posté le 09-05-2012 à 07:45:34

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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *