Bonjour à toutes et à tous

Alors pour établir mon problème:
- J'ai office 2003
- Un fichier excel Monclasseur
- Un fichier Word Mondocument (deja ouvert)

J'aimerais copier la valeur de la cellule A1 de mon fichier excel vers une cellule de mon tableau word dont le fichier est deja ouvert.

J'ai essayer d'utiliser :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Dim WordDoc As Word.Document
 
    Set WordDoc = GetObject("monDocument.doc")
Pour sélectionner mon fichier word mais j'ai une erreur système &H800401E4

Quelqu'un pourrait-il m'aider ?

Sachant que j'ai la macro suivante pour ouvrir mon fichier word au départ:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim wordApp As Word.Application
Dim WordDoc As Word.Document
 
 
Set wordApp = CreateObject("word.application") 'ouvre session word
wordApp.Visible = True 'word masqué pendant l'operation
Set WordDoc = wordApp.Documents.Open("C:\Documents and Settings\429527\Desktop\Pin item\Mondocument.doc") 'ouvre document Word