Bonjour,
Coller cette macro dans le Module "ThisWorkbook"
Private Sub Workbook_Open()
Dim i&, s$
s = ThisWorkbook.Path
i = FileDateTime(s & "\" & ThisWorkbook.Name)
With Worksheets("Feuil1")
If i < Date Then .Range("C2") = .Range("D1")
End With
End Sub
Nota : Aujourd'hui ça ne marchera pas car la macro va considérer que le boulot a déjà été fait : La macro ne fonctionne que la première fois que tu ouvres le fichier de la journée.
A+