Public Enum TypeInfo
Titre = 1
Objet = 2
NomAuteurCreation = 3
MotsCles = 4
Commentaires = 5
NomAuteurDernierEnregistrement = 7
NumeroRevision = 8
NomApplication = 9
DateCreation = 11
DateDernierEnregistrement = 12
End Enum
Public Function InfosProprietesClasseur(NomInfo As TypeInfo) As String
InfosProprietesClasseur = CStr(ActiveWorkbook.BuiltinDocumentProperties(NomInfo).Value)
End Function
Private Sub EXEMPLE()
MsgBox InfosProprietesClasseur(DateCreation)
End Sub
' Attention, ces valeurs sont celles qui se trouvent
' dans les propriétés du classeur (par clique droit sur le fichier,
' Onglet Résumé).