[E-02] VBA : Récupérer du texte dans Word à partir d'Excel

Version imprimable

:roll: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:

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:

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.

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:

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

27/02/2009, 12h37
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.
27/02/2009, 15h41
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 ?
27/02/2009, 16h14
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:

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.
27/02/2009, 16h48
aalex_38

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

Code:

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

et pas de soucis chez moi

Bonjour,

je ne comprends pas non plus.
J'ai simplifié mon code de telle manière à isoler le problème. Voici donc le nouveau contenu exact de la procédure, qui reproduit le problème (un fichier Word est par ailleurs ouvert, contenu le mot "Facture n° : " et un numéro sur 5 caractères) :

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
 
Sub Essai()
 
    'Déclaration pour Word
    Dim WrdApp, FicWord As Object
    Dim Reffact, myRange As Word.Range
    Set WrdApp = CreateObject("Word.Application")
 
    'le fichier word est déjà ouvert
    NbDocWord = Documents.Count
    If NbDocWord > 0 Then
        NomFic = Documents(1).Name  'on prend le premier par défaut
    Else
        NomFic = ""
    End If
 
    'Référence MadStef de la fiche
 
    If NbDocWord > 0 Then
        'Le document Word est ouvert
        Set myRange = ActiveDocument.Content
        myRange.Find.Execute FindText:="Facture n° :", Forward:=True
        If myRange.Find.Found = True Then
            'ça plante sur la ligne ci-dessous
            WrdApp.Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend
            Set Reffact = ActiveDocument.Range(Selection.Start, Selection.End)
            MsgBox "Référence facture = " & Reffact.Text
        End If
    End If
 
End Sub

ça plante sur la ligne "WrdApp.Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend" avec le message "Erreur d'exécution 91 - Variable objet ou variable de bloc with non définie".
Là franchement je ne vois pas ...

Déja une petitie remarque, il y a un problème dans la déclaration des variables :

Tu fais :

Code:

1
2
3
 'Déclaration pour Word
    Dim WrdApp, FicWord As Object
    Dim Reffact, myRange As Word.Range

Au lieu de

Code:

1
2
3
 'Déclaration pour Word
    Dim WrdApp as object, FicWord As Object
    Dim Reffact as Word.Range, myRange As Word.Range

02/03/2009, 17h21
jmric49

En fait les 2 syntaxes peuvent être utilisées.
Après un nouvel essai, cela ne change pas le problème.

Je ne comprends pas pourquoi le système attend un bloc "with" ...
02/03/2009, 18h21
aalex_38

Citation:

En fait les 2 syntaxes peuvent être utilisées.

Non c'est faux, dans ton exemple WrdApp et Reffact sont considérées comme
variant, VBA différe en cela de certains autres languages.

Citation:

Après un nouvel essai, cela ne change pas le problème.

Il me semble que le code suivant n'est pas bon (il manque la reference a world) :

Code:

Set Reffact = ActiveDocument.Range(Selection.Start, Selection.End)