Importer Champ se trouvant dans un Word vers Excel

Signaler
-
 AlexBrussels -
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\test.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

2 réponses

Messages postés
14975
Date d'inscription
lundi 11 juillet 2005
Statut
Modérateur
Dernière intervention
25 février 2021
94
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...