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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 :

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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.