Discussion :

[jmric49]

Bonjour,

je souhaite récupérer via macro Excel (Excel2002 sous XP) des données contenues dans un fichier .doc (Word2002).
Exemple : ici, dans ma macro VBA Excel, je voudrais récupérer le texte (une référence sur 5 caractères) qui se trouve après le mot "Facture :" dans le fichier Word qui est actuellement ouvert.

J'ai procédé en deux temps :
- écriture de la macro sous Word --> ça marche !
- transposition de la macro sous Excel --> ça ne marche pas

Voici ma macro sous Word (qui fonctionne donc) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Reffact As Range 
Set myRange = ActiveDocument.Content 
myRange.Find.Execute FindText:="Facture :", Forward:=True 
If myRange.Find.Found = True Then 
  If Selection.StoryType = wdMainTextStory Then 
     wUnits = Selection.Move(Unit:=wdWord, Count:=1) 
  End If 
If wUnits < 1 Then 
  MsgBox "Numéro de facture inexistant" 
Else 
  Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend 
  Set Reffact = ActiveDocument.Range(Selection.Start, Selection.End) 
  MsgBox "Facture = " & Reffact.Text 
End If

Voici ma macro transposée sous Excel qui ne fonctionne pas :

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
Set myRange = ActiveDocument.Content 
myRange.Find.Execute FindText:="Facture :", Forward:=True 
If myRange.Find.Found = True Then 
  'on a bien trouvé une référence de facture 
  If FichierWord.Selection.StoryType = .wdMainTextStory Then 
     wUnits = Selection.Move(Unit:=wdWord, Count:=1) 
  End If 
  If wUnits < 1 Then 
     MsgBox "Numéro de facture inexistant" 
  Else 
     FichierWord.Selection.MoveRight Unit:=wdCharacter, Count:=5,    Extend:=wdExtend 
     Set Reffact = ActiveDocument.Range(Selection.Start, Selection.End) 
     MsgBox "Facture = " & Reffact.Text 
  End If 
End If

Il doit manquer des blocs "With - End With" mais je ne connais pas la syntaxe.
Quelqu'un aurait une idée ou des pistes ?
Par avance merci.

[aalex_38]

Bonjour,

De nombreux exemples existent sur le forum pour piloter word depuis excel.

Pour avoir accès aux variables word tu dois les prefixer, un pt't bout de code en exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Exemple
Dim wrdApp As Object
Dim wrdDoc As Object
 
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open(Wchemin)
wrdApp.Visible = True ' False 'True
Dim range1 As Word.Range
Dim range2 As Word.Range
Dim Maligne As Integer
 
wrdApp.Selection.HomeKey Unit:=wdStory
 
End-SUB

[jmric49]

Oui, c'est bien ce que j'ai fait dans mon exemple (effectivement on ne voit pas le "CreateObject("Word.Application")" mais il y est bien), mais malgré cela ça ne marche pas.
Bon je vais fouiller du côté des exemples sur le forum ...
Merci.

[aalex_38]

Peux-tu préciser ce qui ne marche pas ? (est-ce que word s'ouvre bien ...)

EDIT : As tu ajouté la référence Microsoft Word xx Object Library ?

[jmric49]

Voilà ce qui ne marche pas :

j'ai le message d'erreur suivant :
"Variable objet ou variable bloc with non définie"
sur la ligne de code Excel VBA suivante :

Code :

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

1
2
 
FichierWord.Selection.MoveRight Unit:=wdCharacter, Count:=5,    Extend:=wdExtend

NB : J'ai bien ajouté la référence Microsoft Word 10.0 Object Library.

[aalex_38]

Alors je ne comprends pas, j'ai bien testé avec

Code :

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

wrdApp.Selection.MoveRight Unit:=wdCharacter, Count:=5,    Extend:=wdExtend

et pas de soucis chez moi