voici une procédure événementielle à mettre dans la feuille ThisWorkbook, qui inscrit une valeur dans la cellule A1 de la Feuille 1 chaque fois que la boîte de dialogue Save As est appelée, mais pas quand on fait une sauvegarde normale.
Attention, deux remarques :
- sous cette forme, la procédure écrit dans la cellule A1 la première fois que le classeur est enregistré, au moment de sa création.
- la cellule est modifiée même si ensuite l'utilisateur annule l'opération Save As.
Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, _
Cancel As Boolean)
If SaveAsUi Then
Worksheets("Feuil1").Range("A1").Value = "save as " & Date
End If
End Sub