Communication avec Word

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:

---

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

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

Merci aalex_38, mais j'ai un petit souci.

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

Code:

---

wrdApp.Selection.HomeKey Unit:=wdStory

---

J'ai une

Citation:

---

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

---

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

Sais-tu pourquoi?

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 ???

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:

---

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

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

oui Word s'ouvre parfaitement

Je vien de tester chez moi et je pense qu'il te manque la référence :

Microsoft word xx.x Object Library

Dans mes références disponibles, je ne vois que "Microsoft word 9.0 Object Library".

Cette référence est activée mais ça ne marche tjs pas.

J'ai mis xx car la version peut changer selon les sites.


je croyais que c'était la solution car moi aussi j'ai :

Citation:

---

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

---

si je n'active pas cette référence.

Une fois activée tout marche pour moi, sauf evidemment si word est déja ouvert.

A moins que tu me postes ton fichier que je puisse tester, je ne vois plus quel peut être le problème.

A demain.

Oui c bon aalex_38 ça marche. Merci beaucoup et bonne soirée. :P John81

Ah tant mieux si ça marche, bonne journée.