Salut et merci de ton temps.
voici le code simplifié que j'essaie de faire fonctionner. J'obtiens toujours l'erreur d'exécution 13 "Incompatibilité de type" LORSQUE DES VARIABLES CUSTOM EXISTENT dans le fichier .doc à la ligne For Each propCustom In WordDoc.CustomDocumentProperties
Si aucune variable n,existe, le code s'exécute comme il faut puisqu'il ne rentre pas dans la boucle for.
J'ai essayé ton code également, mais je pense pas qu'il puises fonctionner dans Excel (je code dans Excel et non dans Word.
Merci!
Sub test()
Dim WordApp As Word.Application
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = False
Dim WordDoc As Word.Document
Set WordDoc = WordApp.Documents.Open("f:\test.doc", , True)
Dim propCustom As Word.CustomProperty
Debug.Print WordDoc.CustomDocumentProperties.Count & " variables found"
For Each propCustom In WordDoc.CustomDocumentProperties
If propCustom.Name = "VersionRI" Then
Debug.Print "VersionRI = " & propCustom.Value
Exit For
End If
Next
WordDoc.Close (False)
WordApp.Quit
End Sub