Private Sub Workbook_Open()
If Sheets("feuille de jour").Cells(2, 3).Value = "" Then
Cells(2, 3).Value = Format(Date, "ddd d mmm YYYY", vbLongDate)
End If
End Sub
j'ai deja cela pour toi, désolé de ma lenteur^^
le code sert a metre une date uniquement si la case est vide, il faudra donc que lorsque tu enregistre le fichier, vider cette case....cette idée te convient ou pas?