[XL-2007] Executer la macro d'un document Word sous Exccel

[Jemaro]

Bonsoir tout le monde
Je sollicite un peu de votre aide car je tourne vraiment en rond la, j'essaye d'ouvrir une macro d'un fichier Word par Excel mais cela bloque je ne sais pas pourquoi, peut être pourrez vous m'aider.

J'essaye en fait sous Excel d'ouvrir deux documents Word différents, et exécuter la macro d'un des documents Word pour récupérer des données dans l'autre Word. J'ai du faire ça car j'utilise l'objet ContentControl qu'apparemment Excel ne connait pas.. Voici une partie de mon code pour m'expliquer:

dans mon document Excel :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
    Dim wordApp As Object
    Dim wordApp2 As Object
    Dim NTSynthese As Object
    Dim NTscannee As Object
    Set wordApp = CreateObject("Word.Application")
    Set wordApp2 = CreateObject("Word.Application")
    Set NTSynthese = CreateObject("Word.Document")
    Set NTscannee = CreateObject("Word.Document")
 
    Set NTSynthese = wordApp2.Documents.Open(cheminProjet)
    Set NTscannee = wordApp.Documents.Open(lienHT)
 
    wordApp2.Run "recup_Ecocarbone", NTscannee
 
    NTscannee.Close (False)
    NTSynthese.Close (True)
    wordApp.Quit
    wordApp2.Quit

Et dans le document Word que j'apelle NTSynthese

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Public Sub recup_Ecocarbone(NTscanee As Object)
 
    Dim cc As Object
    Set cc = CreateObject("ContentControl")
    Dim i As Integer
    i = 1
    'on scanne tous les Contrôles de texte enrichis du document précisé et on regarde si le tag est Ecocarbone
    For Each cc In NTscannee.RichTextContentControls
        If (cc.Tag = "Ecocarbone") Then
            ThisDocument.Bookmarks("Ecocarbone" & i).Range = cc.Range.Text
            i = i + 1
        End If
    Next
End Sub

Le programme bugge sur la ligne wordApp2.Run "recup_Ecocarbone", NTscannee en me retournant une erreur 440 ' la méthode 'Run' de l'objet _Application a échoué' je me suis dit que c'était peut être une erreur dans le passage des paramètres mais je ne vois pas comment la résoudre :/

merci d'avance pour vos réponses! =)