Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Figer la date

M

Mathieu X

Guest
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
 

Pièces jointes

  • rapport.zip
    2.4 KB · Affichages: 77
  • rapport.zip
    2.4 KB · Affichages: 73
  • rapport.zip
    2.4 KB · Affichages: 73
G

Gérard DEZAMIS

Guest
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…