Discussion :

[Pierre738]

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 :

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

qui me permet d'avoir tout le contenu de mes propriétés dans colonne A et B
mais j'aimerai plutôt avoir les données titres et auteurs dans une cellule précise
j'ai essayé d'utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ThisWorkbook.BuiltinDocumentProperties("Author").Value

Mais impossible d'avoir ma valeur
Merci de votre éventuelle aide,
A bientôt

[parmi]

Bonjour,

Et comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Range("E1") = Wb.BuiltinDocumentProperties(1).Value     'Titre
    Range("F1") = Wb.BuiltinDocumentProperties(3).Value     'Auteur