Discussion :

[Accessbeotien]

Bonjour,

j'ai un petit souci de reprise de données d'un document formulaire word .

j'ai créé un formulaire avec différents champs dont certains sont des listes déroulantes.

j'ai appliqué la macro suivante sous excel:

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
16
17
18
Sub wordsignet() 
'Macro écrite par Pierre CFI 
Dim wrd As Object 
Dim i As Integer, aBookmark 
Set wrd = CreateObject("Word.Application") 
wrd.Documents.Open Filename:="C:\TEMP\EPVS.doc" 
'// pas obliger de voir 
'wrd.Visible = True 
If wrd.ActiveDocument.Bookmarks.Count >= 1 Then 
For Each aBookmark In wrd.ActiveDocument.Bookmarks 
Worksheets("Feuil1").Range("a1").Offset(i, 0) = aBookmark.Name 
Worksheets("Feuil1").Range("a1").Offset(i, 1) = aBookmark.Range 
i = i + 1 
Next aBookmark 
End If 
wrd.Quit 
Set wrd = Nothing 
End Sub

cependant les signets pour lesquels il s'agit d'une liste déroulante la valeur du champ est nulle.

comment reprendre les valeurs d'une liste déroulante ?

merci pour votre aide

[Heureux-oli]

Salut,

Pour les champs de formulaire, il est plus sage d'utiliser l'objet associé.

Code :

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

1
2
3
4
5
Dim oFld As Formfield
 
For each oFld in ActiveDocument.FormFields
    Debug.Print oFld.Result
Next oFld

[Accessbeotien]

Bonjour,

merci pour l'astuce,

mais ou dois je incorporer cette instruction ?

[Heureux-oli]

Salut,

cette instruction devrait remplacer ta boucle, mais tu dois garder l'incrément de "i".