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 : Sélectionner tout - Visualiser dans une fenêtre à part
Set wordDocProperties = wordDoc.CustomDocumentProperties
s'execute.

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

Ci-dessous le code complet:

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
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.