Comment indiquer les dates de création et de modification d'un classeur

Il y a plusieurs possibilités. Certaines sont peu fiables (comme GetDateModif ).
Ce qui fonctionne : A mettre dans le module thisworkbook :

Private sub Workbook_Open()
  Sheets(1).[A1] = "Date de création : le " _
    & Format(ActiveWorkbook.BuiltinDocumentProperties(11), _
    "dd/mm/yyyy")
  Sheets(1).[A2] = "Dernier enregistrement : le " _
    & Format(ActiveWorkbook.BuiltinDocumentProperties(12), _
    "dd/mm/yyyy hh:mm")
 end sub

Pour afficher de façon encore plus sure la date de modif : Toujours dans le module this workbook :

Private sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Sheets(1).Range("A22").Value = "Date de dernière modification : " & Now
 end sub

Astuce illustrée par ce classeur
fc-manipfichiers