Figer la date de la fonction aujourd'hui

[Andry]

Bonjour à tous!
J'ai une feuille de mesure où on doit renseigner la date, le nom...., et j'ai utilisé la fonction aujourd’hui pour remplir automatiquement la date, sauf que j'aimerai bien figer cette date le jour de la saisie des mesures. Un macro permet de créer une nouvelle feuille par jour et du coup j'ai tout le temps la même date. Est ce qu'on peut fixer la date après enregistrement. Ci joint un fichier explicatif!
Merci d'avance.

 

[Roland_M]

Re : Figer la date de la fonction aujourd'hui

bonjour,

voir ton fichier avec un code calendrier sur cellule.

 

[Robert]

Re : Figer la date de la fonction aujourd'hui

Bonjour Andry, Roland, Bonjour le forum,

Peut-être comme ça (macro appliquée au bouton) :

Sub Macro1()
Sheets("Feuil1").Copy after:=Sheets(1)
With ActiveSheet
    Range("C2:C4,C7:C16").ClearContents
    Range("C2").Value = Format(Day(Date), "00") & "/" & Format(Month(Date), "00") & "/" & Year(Date)
End With
End Sub

Le fichier :

 

[Andry]

Re : Figer la date de la fonction aujourd'hui

Bonjour à vous!! je vous remercie d'avoir pencher sur mon problème, j'ai essayer les 2 solutions et les 2 marchent. Merci beaucoup