Discussion :

[Thallhos]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

.Selection.HomeKey unit:=wdStory

J'en appelle donc à votre expertise

Ci-après mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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

[Thallhos]

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

Bonjour Menhir, oui exactement

[Menhir]

j'ai un message d'erreur

le message d'erreur s'effectue

Quel message d'erreur ?

[Thallhos]

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"

[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.

[Thallhos]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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