Date d'enregistrement

ERIC S

XLDnaute Barbatruc

• 4 Avril 2006

• #2

Bonjour

en vba dans workbook-beforesave

exemple:

sheets('Feuil1').range('A1').value = format(date,'dd/MM/yyyy)

devrait sauf erreur enregistrer en A1 de la Feuil1 la date du jour avant chaque sauvegarde

A tester, A+

 

Vote positif 0 Vote négatif

V

vekmort

XLDnaute Occasionnel

• 4 Avril 2006

• #3

Salut,
Je sais que ce n'est pas le sujet, mais il est possible de rajouter le User de la personne qui a fait la modification !
Si A1 est la date...
B1 peut-être : Application.UserName

:unsure: :unsure:

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 4 Avril 2006

• #4

Bonsoir Phil_PF, ERIC S, vekmort, le Forum,

En complément, j'ajouterais que la date du dernier engistrement du classeur est déjà mémorisée naturellement par Excel. Pour l'obtenir :

MsgBox ThisWorkbook.BuiltinDocumentProperties('Last Save time').Value

Cliquez pour agrandir...

Attention toutefois, si le document n'a encore jamais été enregistré sur disque (classeur qui vient d'être créé), on obtient une erreur. Dans ce cas, on peut précéder cette instruction par un 'On Error Resume Next' par exemple.

Cordialement,

 

Vote positif 0 Vote négatif

P

Phil_PF

Guest

• 6 Avril 2006

• #5

Merci pour vos réponses :lol: :lol:

 

Vote positif 0 Vote négatif