Liason Excel Word

[gg]

Bonjours à tous
Je voudrais ouvrir un fichier Word existant depuis Excel.
J'ai trouvé dans cette macro dans Wiki mais elle bloque à la première ligne.

Dim appWrd As Word.Application
Dim docWord As Word.Document
Set appWrd = CreateObject('Word.Application')
appWrd.Visible = True
Set docWord = appWrd.Documents. _
Open('C:\\Test.doc', ReadOnly:=True)

le message reçu est : 'erreur de compilation
type defini par l'utilisateur non défini'
Savez vous quelle est l'erreur ?????
Merci de votre aide

 

[Marc_du_78]

Bonjour gg, le Forum,
Ayant rencontré le même problème récemment, je puis te dire que ceci vinent du mot Word ou la lettre o est absent. Tu as Wrd au lieu de Word à quatre reprises.
En te souhaitant une bonne journée.

 

[gg]

Merci Marc
Mais aprés correction le résultat est le même.
Toujours le message d'erreur.
Dur,dur....
La liaison word excel est un vrai casse tête !!

 

[chris]

Bonjour
vérifie que les noms situés dans les déclarations Dim et ceux situés dans les 'set' soient bien identiques.
Le message veut dire que tu utilises une variable non préalablement définie par un 'dim' adéquat.

Message édité par: chris, à: 08/03/2006 10:58

 

[MichelXld]

bonjour gg , Marc et Chris

il faut aussi activer la reference Word

Dans l'éditeur de macros (ALT+F11) :
Menu Outils
References
coche la ligne Microsoft Word xx.x Object Library
clique sur OK pour valider


Marc , peux tu me preciser quel exemple tu avais copié sur la wiki page car je ne retrouve pas l'erreur ...


bonne journée
MichelXld

 

[gg]

Merci Chris et Michel mais aprés vérification suivant vos infos,toujours le même probleme.
J'ai copié texto le programe sur wiki
Je pensais l'utiliser sans problème
Salut

 

[Marc_du_78]

Bonjour à chacun
Essaie ceci :

Sub OuvrirDoc()
'Il convient d'activer la référence 'Microsoft Word XX.X Object Library'
Dim AppW As Word.Application
Dim DocW As Word.Document
Dim Chemin As String
Chemin = ThisWorkbook.Path & 'LeFichier.doc'
Set AppW = CreateObject('Word.Application')
AppW.Visible = True
Set DocW = AppW.Documents.Open(Chemin)
End Sub

 

[gg]

Merci à tous pour vos efforts mais toujours la
même reponse à la premiere ligne.
Ce n'est pas la premiére fois que je ne comprends
rien à la logique de liaison entre documents Office.
Salut et encore merci.

 

[MichelXld]

rebonjour

tu peux tester cette version

Dim appWrd As Object
Dim docWord As Object
Set appWrd = CreateObject('Word.Application')
appWrd.Visible = True
Set docWord = appWrd.Documents.Open('C:\\\\\\\\Test.doc', ReadOnly:=True)


bonne soirée
MichelXld

 

[gg]

Bingo Michel
Ca marche impeccable !!!!
Merci je n'aurai jamais trouvé seul.
Salut à tous