Bonjour à tous
Petit nouveau sur le forum, (ma présentation : http://www.developpez.net/forums/d15...sentation-moi/ ) j'ai besoin d'aide sur VBA Excel
Mon problème : j'aimerai que des propriétés précises de mon document soit retransmise dans des cellules de ma page excel
Pour cela j'ai déjà parcouru un peu le site et j'ai trouvé sa :
qui me permet d'avoir tout le contenu de mes propriétés dans colonne A et B
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 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
mais j'aimerai plutôt avoir les données titres et auteurs dans une cellule précise
j'ai essayé d'utiliser :
Mais impossible d'avoir ma valeur
Code : Sélectionner tout - Visualiser dans une fenêtre à part MsgBox ThisWorkbook.BuiltinDocumentProperties("Author").Value
Merci de votre éventuelle aide,
A bientôt
Partager