Récupération de CustomDocumentProperties Word depuis macro Excel

Bonjour,

J'essaye de créer une macro Excel qui récupère l'ensemble des CustomDocumentProperties d'un document Word. Cependant, je n'arrive pas à récuperer correctement ces properties. J'ai toujours une erreur "Incompatibilité de type" quand la ligne

Code:

---

Set wordDocProperties = wordDoc.CustomDocumentProperties

---

s'execute.

Je n'arrive vraiment pas à comprendre pourquoi... :(

Ci-dessous le code complet:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit   Sub getProperties()   Dim wordApp As Word.Application Dim wordDoc As Word.Document Dim wordDocProperties As Office.DocumentProperties   Set wordApp = CreateObject("Word.Application") Set wordDoc = wordApp.Documents.Open("d:\test.doc") Set wordDocProperties = wordDoc.CustomDocumentProperties 'ligne qui pose problème   wordDoc.Close wordApp.Quit End Sub

---

Auriez-vous une idée? Merci d'avance pour vos suggestions.

Bonjour Apo_fr,

Quel est la finalité de ce que tu souhaites faire ?
J'avoue ne pas bien maîtriser depuis Excel les propriétés d'un Word mais par exemple, avec ceci :

Code:

---

1 2 3

For Each valeur In wordDoc.BuiltinDocumentProperties MsgBox valeur.Name Next valeur

---

... tu obtiens la liste des propriétés d'un Word.

Je ne sais pas si ça t'aide mais n'hésite pas à expliciter d'avantage.

Cordialement,
Kimy

Bonjour Kimy,

Merci pour ton retour.
(Les BuiltinDocumentProperties et CustomDocumentProperties ne sont pas tout à fait la même chose, mais la démarche est la même je pense.)
J'ai récupéré ton code, il fonctionne tel quel, mais je n'arrive pas à le faire fonctionner en déclarant ta variable "valeur" en tant que DocumentProperties.

Code:

---

Dim valeur As Office.DocumentProperty

---

J'ai toujours l'erreur de typage.

Je souhaite déclarer toutes mes variables pour pouvoir bénéficier des auto-complétions dans l'éditeur. :P

Je me permets de relancer, vu que j'ai toujours le souci... ;)

Bonjour,

voir directement depuis Word si cela fonctionne, et dans l'affirmative poster dans cette discussion le code Word …

Pour l'auto-complétion il faut déclarer les variables se référant à Word en liaison anticipée
en activant dans le projet Excel la référence Word …

Bonjour Marc-L,

Merci pour ta suggestion. Dans un document Word, la macro suivante fonctionne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Sub getProperties()   Dim currentDocument As Document Dim wordDocProperties As DocumentProperties Dim wordDocProperty As DocumentProperty   Set currentDocument = ThisDocument Set wordDocProperties = currentDocument.CustomDocumentProperties Set wordDocProperty = currentDocument.CustomDocumentProperties(1)   End Sub

---

Dans mon fichier Excel, j'ai déja ajouté la réference necessaire me semble-t-il:
Pièce jointe 150187


et dans la macro, c'est toujours

Code:

---

Set wordDocProperties = wordDoc.CustomDocumentProperties

---

qui pose problème de compatibilité de type.

Merci d'avance pour vos retours.

Effectivement le type de la variable ne passe pas : utiliser le type Object, tant pis pour l'auto-complétion !
Un point d'arrêt après le Set de la variable permet de consulter sa structure dans la fenêtre des Variables locales …
Et pour raison de compatibilité inter-versions, mieux vaut désactiver au final la référence de Word.

Exemple sans variable objet ni référence de Word affichant les valeurs dans la fenêtre Exécution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub Demo() Const FICHIER$ = "D:\Tests\Test .doc" If Dir(FICHIER) = "" Then Beep: End   With CreateObject("Word.Application") With .Documents.Open(FICHIER) With .CustomDocumentProperties If .Count = 0 Then Debug.Print "Pas d'élément !" Else For L& = 1 To .Count With .Item(L): Debug.Print .Name & " : " & .Value: End With Next End If End With   .Close End With   .Quit End With   End End Sub

---

_______________:yaisse1: _____________________________________:yaisse1: _____________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …


__________________________________________________________________________________________
Ce qui compte ne peut pas toujours être compté, et ce qui peut être compté ne compte pas forcément. (Albert Einstein)

Ok, merci pour ces éléments malgré tout! :)