Date du jour

[pat12]

Bonsoir,
1* je cherche le code ou le macro qui, à chaque ouverture de ma feuille ecrit la date du jour dans la cellule (D23)
2* Mais il faudrait que je puisse la modifier si je veux la changer.
Merci

 

[david84]

Re : Date du jour

Bonsoir,
pour le 1* : à rentrer en D3 : =aujourd'hui()

 

[jeanpierre]

Re : Date du jour

Bonsoir pat12,

A mettre dans le ThisWorkbook de ton classeur (Alt F11)

Private Sub Workbook_Open()
Range("d23") = Date
End Sub


Bonne soirée.

Jean-Pierre

 

[pat12]

Re : Date du jour

A oui bien sur mais on ne peut pas écrire par dessus et que la date revienne a chaque ouverture.
Merci quand même.

 

[jpb388]

Re : Date du jour

Bonsoir
Private Sub Worksheet_Activate()
If Range("d23").Text = "" Then Range("d23").Formula = Date
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Range("d23").Text = "" Then Range("d23").Formula = Date
End Sub
a+
jpb

 

[jeanpierre]

Re : Date du jour

Re, david84,

Nous avons posté en même temps, as-tu vu ma réponse ?

Code qui s'active à l'ouverture du fichier

Jean-Pierre