Controler Word depuis Excel

Bonjour,

je programme en Excel VBA depuis quelques mois, et là, je dois prendre le contrôle de Word depuis Excel et je bloque sur quelque chose de certainement très simple, mais je bloque. C'est à propos de l'objet selection en Word VBA qui a l'air d'être assez différent de ce qu'il est en Excel VBA.

Dans un classeur Excel, j'ai le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() Dim Word As Word.Application Set Word = New Word.Application   Word.Visible = True   Dim leDocument As Document Word.Documents.Open "C:\WINNT\Profiles\c5438\Bureau\test.doc" Set leDocument = Word.Documents("test.doc")   leDocument.Range(0, 0).Select Selection.MoveEnd wdStory End Sub

---

Ce code, selon moi, est supposé ouvrir le document et sélectionner l'intégralité du texte. Sauf que j'ai l'erreur suivante :

Citation:

---

Erreur d'exécution '438' :
Propriété ou méthode non gérée par cet objet.

---

Le truc bizarre, c'est que si j'ouvre le document dans word à la main et que je lance le code suivant, j'ai :

Code:

---

1 2 3 4 5

Sub test() ThisDocument.Range(0, 0).Select Selection.MoveEnd wdStory End Sub

---

Le code fonctionne et fait bien ce que je veux...

Bref, je ne vois pas où est le problème. C'est pourquoi, je fais appel à votre aide.

Je vous remercie.

Bonjour,

Evite de nommer tes variables de la même façon que les propriétés, méthodes et objets de VBA car sinon le complilateur ne sais pas trop où il en est et tu peux, dans ce cas, être privé de l'intellisense. Teste ce qui suit (j'ai fait simple) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub test()   Dim AppWord As Word.Application Dim AppDoc As Document   Set AppWord = New Word.Application   AppWord.Visible = True   Set AppDoc = AppWord.Documents.Open("C:\WINNT\Profiles\c5438\Bureau\test.doc")   With AppDoc .Range(0, .Range.Characters.Count).Select End With   End Sub

---

Hervé.