Effectivement, ça n'a pas l'air de marcher comme je l'indique ci dessus, pourtant j'ai souvenir de pouvoir récupérer facilement les propriétés personnalisées d'un fichier Excel (et même Word)...
J'ai le meme probleme. Après plusieurs recherches j'ai trouvé une facon de faire avec les macros.
- il faut passer son fichier en .xlsm (pour gerer les macros)
- créer une nouvelle feuille dans le fichier excel (en 1ere position)
- créer une nouvelle macro nomée "Auto_Open" avec ce code :
Sub Auto_Open() infosClasseurCustomDocumentProperties ActiveWorkbook End Sub
Sub infosClasseurCustomDocumentProperties(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.CustomDocumentProperties 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
- éxecuter la macro
- lier les cellules a remplir avec les propriétés recupérés sur la premiere feuille