Je voudrais afficher dans un classeur la date de la dernière modification effectuée dans un classeur mais que la simple ouverture/fermeture de celui-ci ne modifie pas cette information.

A mettre dans le module thisworkbook:

 Dim modif As Boolean  
Private sub Workbook_Open()
 modif = False
 end sub

Private sub
 Workbook_BeforeClose(Cancel As Boolean)
 If modif = True Then
 
 Sheets("trucchouette").Range("D1").Value = "Dernière modif le " & Format(Date, _
 "dd/mm/yyyy") & " " & Format(Time, "hh:mm") 'c'est là que la date de modif s'affiche
 End If
 end sub

Private sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 modif = True
 end sub