[XL-2010] copie champ liste word sur feuille excel

[momoju]

Bonjour à toutes et à tous,

j'ai trouvé un code qui permet de copier les champs d'un formulaire Word sur une feuille Excel. Cela fonctionne bien sauf que les données champs de liste déroulante ne s'affiche pas dans ma feuille Excel :

champ2 de mon formulaire Word est une liste déroulante : Monsieur, Madame, Mademoiselle Rien ne s'affiche dans feuille Excel

Code :

Cells(1, 2) = WordDoc.Fields(2).Result.Text

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
Sub TransfertWord()
 
'nécéssite d'activer la référence Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Fichier As Variant
 
'affichage boite de dialogue pour choisir un document Word
Fichier = Application.GetOpenFilename("Text Files (*.doc*), *.doc*")
If Fichier = False Then Exit Sub
 
'le document Word est supposé fermé avant le lancement de la macro
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = False 'pour que word reste masqué pendant l'opération
Set WordDoc = WordApp.Documents.Open("C:\\\Documents\\\fiche d'embauche\FICHE EMBAUCHE.docx") 'ouverture du fichier Word
'WordDoc.Locked = False
 
 
Cells(1, 1) = WordDoc.Fields(1).Result.Text 'copie du champ texte Word
Cells(1, 2) = WordDoc.Fields(2).Result.Text "ici une liste déroulante"
Cells(1, 3) = WordDoc.Fields(3).Result.Text

WordDoc.Close False 'ferme le document Word sans sauvegarde
WordApp.Quit 'ferme l'application Word
End Sub

Merci pour votre aide et bonne journée à toutes et à tous

[momoju]

Bonjour à toutes et à tous,

Excusez moi de revenir vous solliciter mais je suis sur ce problème depuis 2 jours et je n'y arrive pas.

J'ai enregistré mon formulaire avec option "Enregistrer les données du formulaire en tant que fichier texte délimité" et cela ne change rien.

Les champs texte sont bien importés sur ma feuille Excel mais les données de mes champs liste déroulante reste vides.

Pouvez-vous m'aider Merci d'avance