Private Sub Workbook_Open() 's'exécute à chaque ouverture du classeur
With Sheets("Feuil1")
If .[k1] = Date Then Exit Sub 'si la valeur de K1 est la date du jour, on quitte
.[k1] = Date 'on inscrit la date du jour dans K1
ThisWorkbook.Save 'on sauvegarde le classeur
'on affiche une information - la ligne suivante peut être supprimée (c'est pour l'exemple)
MsgBox "Première ouverture du jour, mise à jour K1 et sauvegarde.", vbInformation
End With
End Sub