Ouvrir un document Word depuis Excel et le manipuler - bug

Version imprimable

Bonjour le Forum,

J'en profite pour vous souhaiter en retard une excellente année 2019 !! Pleine de code et de réussite :)

Je vous écris ce matin parce que je coince sur la manipulation d'un fichier Word depuis Excel. J'arrive à ouvrir le fichier sélectionné depuis un Order Form mais après impossible de communiquer dedans, j'ai un message d'erreur - alors que j'ai bien suivi ce que j'ai pu trouver sur le net. (le message d'erreur s'effectue sur la ligne :

Code:

.Selection.HomeKey unit:=wdStory

J'en appelle donc à votre expertise ;)

Ci-après mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
With UF_Export_PD
    'control
    If .Expat_way.Value = "" Then
        Message = "Could you select a file !"
        .Expat_way.SetFocus
        Exit Sub
    End If
fileToOpen2 = .Expat_way.Value
End With
 
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
 
Dim objWord As Word.document
Dim Myfile As String
Dim Answer As Long
 
Myfile = "fileToOpen2"
 
    'Copy of the information
    Set objWord = GetObject(fileToOpen2)
    objWord.Application.Visible = True
 
    With objWord
                .Selection.HomeKey unit:=wdStory
                With Selection.Find
                .ClearFormatting
                .Text = "Project Review"
                .MatchWildcards = 0
                .Forward = 1
                .Replacement.Text = ""
                .Replacement.ClearFormatting
                .Execute
                .Selection.MoveRight
                .Selection.TypeParagraph
                .Text = "10. Fundraising"
                .Selection.Extend
                .Execute
                .Selection.MoveLeft unit:=wdCharacter, Count:=Len("10. Fundraising") + 1, Extend:=1
                .Selection.Delete
                End With
      End With

Je vous remercie d'avance de votre aide.
Bien cordialement,
Thallhos

22/02/2019, 08h53
Menhir

Est-ce que tu as chargé la bibliothèque d'objets Word (à cocher dans Outils > Références).
22/02/2019, 08h57
Thallhos

1 pièce(s) jointe(s)

Citation:

Envoyé par Menhir

Est-ce que tu as chargé la bibliothèque d'objets Word (à cocher dans Outils > Références).

Bonjour Menhir, oui exactement

Pièce jointe 452331
22/02/2019, 09h12
Menhir

Citation:

Envoyé par Thallhos

j'ai un message d'erreur

Citation:

le message d'erreur s'effectue

Quel message d'erreur ?
22/02/2019, 09h22
Thallhos

1 pièce(s) jointe(s)

Citation:

Envoyé par Menhir

Quel message d'erreur ?

Merci de ta réponse, c'est le message suivant : "erreur d'execution 438 - Propriété ou Méthode non géré par cet objet"
22/02/2019, 09h36
Menhir

objWord est un objet Document.
Et l'objet Document n'a pas de membre Selection.
https://docs.microsoft.com/fr-fr/off.../word.document

En plus, entre cette ligne de code et l'ouverture du document, tu ne sélectionnes rien.
Je ne vois donc pas ce que pourrait désigner Selection.

Parfait

Citation:

Envoyé par Menhir

objWord est un objet Document.
Et l'objet Document n'a pas de membre Selection.
https://docs.microsoft.com/fr-fr/off.../word.document

En plus, entre cette ligne de code et l'ouverture du document, tu ne sélectionnes rien.
Je ne vois donc pas ce que pourrait désigner Selection.

Bonjour Menhir,

Merci pour ta réponse, effectivement ça pouvait pas fonctionner.

Je copie le code qui fonctionne pour ceux que ça intéresse :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Set objWord = GetObject(fileToOpen2)
    objWord.Application.Visible = True
 
    With objWord
    .Range(0, 0).Select
 
                With .ActiveWindow.Selection.Find
                .ClearFormatting
                .Text = "Project Review"
                .MatchWildcards = 0
                .Forward = 1
                .Replacement.Text = ""
                .Replacement.ClearFormatting
                .Execute
                objWord.ActiveWindow.Selection.MoveRight
                objWord.ActiveWindow.Selection.TypeParagraph
                .Text = "10. Fundraising"
                objWord.ActiveWindow.Selection.Extend
                .Execute
                objWord.ActiveWindow.Selection.MoveLeft unit:=wdCharacter, Count:=Len("10. Fundraising") + 1, Extend:=1
                objWord.ActiveWindow.Selection.Delete
                End With
      End With

Merci encore,
Bonne journée

Thallhos