Indiquer date d'enregistrement

[Juliette42]

Bonjour le forum,

je sollicite votre aide pour une petite question technique concernant la rédaction adéquate d'un code vba...

quelle est la bonne écriture pour renseigner dans une cellule quelconque (B5 par exemple): 'fichier mis à jour le puis la date du dernier enregistrement si la personne à cliquer sur enregistrer sinon on laisse la date indiquée dans la cellule'...

Merci pour votre aide et bon diamnche à toutes et à tous.

Juliette

 

[Charly2]

Bonjour Juliette42, bonjour le forum

A mettre dans le code de ThisWorkbook :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'
Sheets(1).Range('B5').Value = 'Fichier mis à jour le ' & Date
End Sub

Mais il faut savoir que si l'argument SaveAsUI est TRUE, l'utilisateur peut annuler l'enregistrement (correspond à Enregistrer Sous).

Amicalement
Charly

 

[juliette42]

Bonjour Charly,

je te remercie pour ta réponse et cette aide.

peux-tu me donner plus de précision sur ta dernière phrase : 'Mais il faut savoir que si l'argument SaveAsUI est TRUE, l'utilisateur peut annuler l'enregistrement (correspond à Enregistrer Sous).'

Juliette

 

[Charly2]

Bonsoir juliette42, bonsoir à toutes et à tous

Dans les arguments de la procédure événementielle BeforeSave, tu as SaveAsUI qui t'indique si la demande d'enregistrement a été faite par Fichier/Enregistrer ou par Fichier/Enregistrer Sous.

Comme tu le sais certainement (sinon, tu essaieras), lorsque tu fais 'Enregistrer Sous', on te demande le nom du fichier etc. mais tu peux aussi annuler ta demande. Or la procédure est appelée avant et dans le cas d'une annulation, tu auras mis à jour ta cellule pour rien...

En espérant avoir été clair :unsure:

Bonne soirée
Charly