importer Champ se trouvant dans un Word vers Excel

Question

Bonjour 
je tente en VBA de récupérer les données de champs se trouvant dans un document Word afin d'importer leurs contenus dans Excel ... 
J'ai trouvé ce script, mais il ne trouve qu'un seul champ alors que le fichier en contient une 15aine.

Quelqu'un peut 'il m'aider    ?


'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    
    'ouvre session word
    Set WordApp = New Word.Application
    'ouvre document Word
    Set WordDoc = WordApp.Documents.Open("C:\CIS	est.docx")
    'word est masqué pendant l'opération
    WordApp.Visible = False
    
    'Récupère le contenu d'un champ
    'Fields(1) : premier champ du document Word
    
    For i = 1 To WordDoc.Fields.Count
  
        If WordDoc.Fields(i).Result <> "" Then
            MsgBox WordDoc.Fields(i).Result.Text
        End If
    Next
    'Ferme le document word
    WordDoc.Close False
    'ferme la session Word
    WordApp.Quit

BunoCS · Answer

Hello,
je tente en VBA de...
POurquoi, dans ce cas, ne pas poster dans la section VBA?
Je déplace la demande.

@+
Buno, Admin CS
L'urgent est fait, l'impossible est en cours. Pour les miracles, prévoir un délai...

AlexBrussels · Answer

Merci

Importer Champ se trouvant dans un Word vers Excel

2 réponses

Votre réponse

Discussions similaires