Liason Excel Word

M

Marc_du_78

XLDnaute Accro

• 8 Mars 2006

• #2

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.

 

Vote positif 0 Vote négatif

G

gg

Guest

• 8 Mars 2006

• #3

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 8 Mars 2006

• #4

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 8 Mars 2006

• #5

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

 

Vote positif 0 Vote négatif

G

gg

Guest

• 8 Mars 2006

• #6

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

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 8 Mars 2006

• #7

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

 

Vote positif 0 Vote négatif

G

gg

Guest

• 8 Mars 2006

• #8

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.

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 8 Mars 2006

• #9

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

 

Vote positif 0 Vote négatif

G

gg

Guest

• 8 Mars 2006

• #10

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

 

Vote positif 0 Vote négatif