date dernier enregistrement

[dam0326]

Bonjour,

Je souhaite ajouter, sur une feuille, la date du dernier enregistrement d’un tableau Excel.

Pour cela, ci-dessous la procédure que j’ai fait :

• ALT F11
• ThisWorkbook
• Workbook
• Sélection de « Before Save »
• Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Feuil1").Range("A1").Value = "Dernière sauvergarde le " & Format(Now, "DD/MM/YY HH:MM:SS") & " par " & Application.UserName
End Sub

Et après comment faire ???

Merci de votre aide

Damien

 

[degap05]

Re : date dernier enregistrement

Bonjour,

A essayer.
Pour avoir le nom de l'utilisateur ôter l'apostrophe devant le &: '& Application.UserName.
La macro est dans le module1 et elle est déclenchée à la fermeture du fichier.
A+

 

[Pierrot93]

Re : date dernier enregistrement

Bonjour,

question déjà posée ici non...

https://www.excel-downloads.com/threads/date-derniere-modification-du-dossier.206605/

auquelle tu n'as pas donné suite d'ailleurs....

bon après midi
@+

 

[dam0326]

Re : date dernier enregistrement

Merci à tout le monde

 

[dam0326]

Re : date dernier enregistrement

Degap05 : ton dossier a été d'une grande aide