Discussion :

[John81]

Bonjour,

Je cherche comment ouvrir un document Word depuis Excel, effectuer une macro Word permettant de récupérer une donnée dans le fichier Word, puis copier cette donnée dans Excel.

Ma Macro Word est la suivante:

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
Sub TEST()
 
Dim TEXTE As String
Dim NOMBRE
TEXTE = ""
NOMBRE = ""
 
Selection.HomeKey Unit:=wdStory
With Selection.Find
    .Text = "DEBIT"
    .Execute
    .Text = "^#"
    .Forward = True
    .Wrap = wdFindContinue
    .Execute
End With
 
Selection.MoveRight Unit:=wdCharacter, Count:=10, Extend:=wdExtend
TEXTE = Selection.Range.Text
 
For i = 1 To 10
    If IsNumeric(Mid(TEXTE, i, 1)) Or Mid(TEXTE, i, 1) = "," Then
        NOMBRE = NOMBRE & Mid(TEXTE, i, 1)
    Else
        Exit For
    End If
Next i
 
End Sub

Je souhaiterais coller la variable "NOMBRE" (obtenue par la macro ci-dessus dans Word) dans la cellule A1 de ma feuille Excel.

Qqn peut-il m'aider? Merci d'avance John81

[aalex_38]

Pour faire cela fait une macro dans excel pour aller chercher l'info dans word.

Et le tour est joué.

Il y a de nombreux exemples sur le forum, une discussion par exemple à laquelle j'avais participé ici

[John81]

Merci aalex_38, mais j'ai un petit souci.

Lorsque j'exécute mon code j'ai un souci au niveau de

Code :

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

wrdApp.Selection.HomeKey Unit:=wdStory

J'ai une

erreur d'exécution '4120' Paramètre incorrect

Alors que pourtant je reprends exactement ta procédure dans la discussion.

Sais-tu pourquoi?

[aalex_38]

Franchement là je vois pas si tu as bien repris toute la procèdure, ça devrait fonctionner, en tout cas ça fonctionnais chez moi.
Si quelqu'un as un idée ???

[John81]

L'ouverture du fichier Word se passe correctement, mais c'est au niveau de la ligne rouge(début du code sur l'application Word) que le problème se situe:

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
Sub WORD()
Dim Wchemin As String
Dim wrdApp As Object
Dim wrdDoc As Object

Wchemin = "R:\activite\DAI Activites\Jonathan\Facturation correspondant\WORD.doc"
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.documents.Open(Wchemin)
wrdApp.Visible = True
 
Dim TEXTE As String
Dim NOMBRE
TEXTE = ""
NOMBRE = ""

wrdApp.Selection.HomeKey Unit:=wdStory
With wrdApp.Selection.Find
    .Text = FRAIS
    .Execute
End With

wrdApp.Selection.MoveRight Unit:=wdCharacter, Count:=3
wrdApp.Selection.Expand Unit:=wdWord
TEXTE = wrdApp.Selection.Range.Text
If Not IsNumeric(TEXTE) Then
    NOMBRE = 0
Else
    wrdApp.Selection.MoveRight Unit:=wdCharacter, Count:=10, Extend:=wdExtend
    TEXTE = wrdApp.Selection.Range.Text
    For i = 1 To 10
        If IsNumeric(Mid(TEXTE, i, 1)) Or Mid(TEXTE, i, 1) = "," Then
            NOMBRE = NOMBRE & Mid(TEXTE, i, 1)
        Else
            Exit For
        End If
    Next i
End If

MsgBox FRAIS & ":" & NOMBRE
   
End Sub

Merci de votre aide. John81

[aalex_38]

Franchement je ne sasi pas ce qui se passe, word s'ouvre bien ?