Stocker Date dans cellule

bonjour,

je souhaiterais savoir si il serait possible de stocker la date du jour dans une cellule. Je connais la fonction Aujourd'hui() mais elle se met a jour a chaque ouverture du fichier. Y a t'il une fonction pour stocker la date d'enregistrement du fichier ?

Une solution

Code:

---

1 2 3 4 5 6

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Worksheets("Feuil1").Range("A1").Value = "" Then Worksheets("Feuil1").Range("A1").Value = Format(Now, "dd/mm/yyyy") End If End Sub

---