Vous pouvez interroger ces propriétés à l’aide d’une macro. Pour ce faire, il faut d’abord savoir comment les propriétés individuelles du document doivent être traitées. La macro écrit les noms exacts pour vous dans une nouvelle table.

Sub LireLesProprietesDuDocument ()

Dim i As Integer

Dim p As Object

i = 1

Sheets.Add

For Each p In ActiveWorkbook.BuiltinDocumentProperties

    Cells(i, 1).Value = p.Name

    i = i + 1

Next

End Sub

Utilisez la commande Sheet.Add pour ajouter une nouvelle table à votre classeur. Ensuite, vous formez une boucle qui parcourt toutes les propriétés de document du classeur l’une après l’autre et écrit leurs noms dans la table. La propriété BuilInDocumetnProperties vous fournit une liste de toutes les propriétés du document.