Sub Test()
    infosClasseurBuiltinDocumentProperties ActiveWorkbook
End Sub


Sub infosClasseurBuiltinDocumentProperties(Wb As Workbook)
    Dim Valeur As DocumentProperty
    Dim i As Byte
    
    On Error Resume Next
    
    'Boucle sur la collection de propriétés prédéfinies
    For Each Valeur In Wb.BuiltinDocumentProperties
        i = i + 1
        'Insère le nom des propriétés dans la colonne A
        ThisWorkbook.Worksheets(1).Cells(i, 1) = Valeur.Name
        'Insère le contenu de la propriété dans la colonne B
        ThisWorkbook.Worksheets(1).Cells(i, 2) = Valeur.Value
    Next
    
    ThisWorkbook.Worksheets(1).Columns("A:B").AutoFit
End Sub

 
'Récupère le contenu de la propriété "Auteur"
MsgBox ThisWorkbook.BuiltinDocumentProperties("Author").Value

'Il est aussi possible d'appeler la propriété en utilisant l'index de la collection.
'MsgBox ThisWorkbook.BuiltinDocumentProperties(3).Value

'Modifie le champ "Commentaires" 
ThisWorkbook.BuiltinDocumentProperties("Comments").Value = "Nouveau commentaire"			

Sub ajouterProprietePersonnalisee()
    ThisWorkbook.CustomDocumentProperties.Add Name:="infoX", _
        Type:=msoPropertyTypeNumber, LinkToContent:=False, Value:=1965
End Sub

					
MsgBox ThisWorkbook.CustomDocumentProperties("infoX").Value					

	
Sub bouclerSurToutesLesProprietesPersonnalisees()
    Dim Cp As DocumentProperty
    
    'Vérifie qu'il y a des propriétés personnalisées dans le classeur
    If ThisWorkbook.CustomDocumentProperties.Count = 0 Then Exit Sub
    
    For Each Cp In ThisWorkbook.CustomDocumentProperties
        MsgBox Cp.Name & vbLf & Cp.Value
    Next Cp
End Sub

ThisWorkbook.CustomDocumentProperties("infoX").Value = 1997

ThisWorkbook.CustomDocumentProperties("infoX").Delete

Sub SupprimeCollection_ProprietesPersonnalisees()
    Dim Cst As DocumentProperty
    
    For Each Cst In ThisWorkbook.CustomDocumentProperties
        Cst.Delete
    Next Cst
End Sub

Sub LireProprietesClasseur_DSO()
    'Nécessite d'activer la référence DSO OleDocument Properties Reader 2.0
    'http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q224351
    Dim DSO As DSOFile.OleDocumentProperties
    
    Set DSO = New DSOFile.OleDocumentProperties
    
    'Attention: Le fichier doit être préalablement fermé!
    DSO.Open sfilename:="C:\Documents and Settings\michel\leClasseur.xls"
    
    '
    MsgBox DSO.SummaryProperties.Author & vbLf & DSO.SummaryProperties.Comments
    '
    'Les autres propriétés:
    '
    ' ApplicationName ' Author ' ByteCount ' Category ' CharacterCount
    ' CharacterCountWithSpaces ' Comments ' Company ' DateCreated
    ' DateLastPrinted ' DateLastSaved ' HiddenSlideCount
    ' Keywords ' LastSavedBy ' LineCount ' Manager ' MultimediaClipCount
    ' NoteCount ' PageCount ' ParagraphCount ' PresentationFormat
    ' RevisionNumber ' SharedDocument ' SlideCount
    ' Subject ' Template ' Title ' TotalEditTime ' Version ' WordCount
    '
    DSO.Close
End Sub

Sub modifierProprietesClasseur_DSO()
    'Nécessite d'activer la référence DSO OleDocument Properties Reader 2.0
    'http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q224351
    Dim DSO As DSOFile.OleDocumentProperties
    
    Set DSO = New DSOFile.OleDocumentProperties
    
    'Attention: Le fichier doit être préalablement fermé!
    DSO.Open sfilename:="C:\Documents and Settings\michel\leClasseur.xls"
    DSO.SummaryProperties.Comments = "mon nouveau commentaire"
    DSO.Save
    DSO.Close
End Sub			

Sub AjouterProprietePersonnalisee_DSO()
    Dim DSO As DSOFile.OleDocumentProperties
    
    Set DSO = New DSOFile.OleDocumentProperties
    
    'Attention: Le classeur doit être préalablement fermé!
    DSO.Open sfilename:="C:\Documents and Settings\michel\leClasseur.xls"
    DSO.CustomProperties.Add "maProprietePerso", "Bonjour"
    DSO.Save
    DSO.Close
End Sub			

Sub LireProprietesPersonnalisees_DSO()
    Dim DSO As DSOFile.OleDocumentProperties
    
    Set DSO = New DSOFile.OleDocumentProperties
    
    'Attention: Le fichier doit être préalablement fermé!
    DSO.Open sfilename:="C:\Documents and Settings\michel\leClasseur.xls"
    MsgBox DSO.CustomProperties.Item("maProprietePerso").Value
    'Il est aussi possible de lire une propriété en utilisant
    'les index de la collection:
    'MsgBox DSO.CustomProperties.Item(0).Value
    DSO.Close
End Sub

Sub AfficherMasquer_PanneauProprietes()
    With Application
        If .DisplayDocumentInformationPanel = False Then
            .DisplayDocumentInformationPanel = True
            Else
            .DisplayDocumentInformationPanel = False
        End If
    End With
End Sub