Enregistrement nom utilisateur + date

Bonjour à tous,

Je souhaiterais que lorsqu'un utilisateur effectue une modification sur le fichier Excel, la date de modification et son nom d'utilisateur apparaissent dans une cellule. Petite subtilité, je ne veux pas qu'il y ait de "double enregistrement" lorsqu'il effectue l'enregistrement manuellement et qu'on lui propose une nouvelle fois à la fermeture du fichier.

Ci-dessous le code que j'ai pour la fermeture du fichier :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("PA QHSE").Activate
Range("F3") = ActiveWorkbook.BuiltinDocumentProperties(12)
Range("G3") = Environ("UserName")
End Sub

Excel 2010

Bonsoir,

Ci-joint une proposition à tester (déplacer la macro dans "BeforeSave" au lieu de "BeforeClose")

Bonne soirée

Bouben

Bonsoir Bouben et merci !

Cela répond à mes attentes par contre dès que je souhaite enregistrer j'ai toujours ce message d'avertissement :

"Avertissement concernant la confidentialité : ce document contient des macros, des contrôles Actives X, des informations sur le kit d'extension XML ou des composants Web. Ils peuvent renfermer des informations personnelles qui ne peuvent pas être supprimées par l'inspecteur de ce document"

Est-il possible de le retirer ?