Figer la date

[Mathieu X]

Bonjour à tous!!!

J'utilise la fonction "aujourd'hui()" pour avoir la date sur un document. Mais voila le problème: imaginons que j'ai besoin de ce document 1 semaine après l'avoir fermé. Lorsque je vais le réouvrir il me donnera la date actuelle. Moi, ce que je voudrais c'est qu'une fois que j'ai enregistré et fermé mon travail, il garde la dernière date de modification.
EX: un rapport de visite(ci-joint) la date du jour doit persister après fermeture du doc...


J'espère m'être fait comprendre

D'avance je vous remercie de votre aide

 

[Gérard DEZAMIS]

Bonjour Mathieu X

Ecrire ce qui suit dans le VBE du Workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("Date").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
End Sub

La cellule contenant la date est bien évidemment nommée "date"

ou alors plus facilement avec le raccourci clavier Ctrl + ; cela t'inscrit directement la date du jour en "dur"

@+ GD