Bonjour,

J'utilise ce qui suit pour récupérer le titre et l'auteur d'un classeur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
auteur = ThisWorkbook.BuiltinDocumentProperties("Author").Value
titre = ThisWorkbook.BuiltinDocumentProperties("title").Value
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
MsgBox _
  "Auteur  :  " & auteur _
  & Chr(10) & _
  "Version :  " & titre _
  , vbInformation, ""
Je voudrais récupérer également (si possible) la dernière date d'enregistrement et le poste d'où elle a été lancée. J'ai ajouté :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
dern_svg = ThisWorkbook.BuiltinDocumentProperties("DateLastSaved").Value
or_dern_svg = ThisWorkbook.BuiltinDocumentProperties("LastSavedBy").Value
...mais ça ne fonctionne pas.

Je vous remercie d'avance pour vos lumières.
Cdt