Afficher date d'enregistrement d'un fichier dans une cellule

Bonjour,

je souhaiterai enregistrer dans une cellule (Ex : A1)

la date (et heure) du dernière enregistrement de ma feuille Excel.

Je vois bien comment écrire la date dans la case :

Range("A1") = Now

Par contre je ne sais pas comment déclencher cet évènement.

/!\ Je ne souhaite pas utiliser "Private Sub Workbook_BeforeSave" car je veux la date effective de l'enregistrement,

j'ai déjà une action sur cet évènement BeforeSave (demande de login), donc si le Login n'est pas rentré, je ne veux pas que l'enregistrement de la date se fasse.

Merci d'avance pour votre aide.

Bonjour

Regarde ce fichier et le code voir s'il peut t'aider

Cordialement