Discussion :

[limofab]

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 ?

[jfontaine]

Une solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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