Discussion :

[scrouet]

Bonjour.

J'ai besoin d'automatiser la lecture de fiches standardisées au format Word pour en faire une synthèse sous forme de tableau Excel.
Pour ce faire, je récupère les valeurs qui m'intéressent dans les cases de tableau des fiches pour les copier sous Excel. L'ennui c'est que certaines fiches sont constituées de champs de type liste de choix, dont je n'arrive pas à récupérer la valeur.
Quelqu'un aurait-il une solution ?

Petite précision : les champs sont associés à un signet nommé.

[ouskel'n'or]

Plusieurs questions

certaines fiches sont constituées de champs de type liste de choix

Comment sont constituées ces listes de choix ? Case à cocher ? Listbox de barre d'outils contrôles ?
Pour aller plus loin il serait bien que tu nous mettes le code pour ouvrir ton doc, ça nous évitera d'avoir à l'écrire pour d'éventuels tests
A+

[scrouet]

Les listes sont des listes déroulantes. C'est en tout cas ce que m'indique les propriétés du champ car je ne peux modifier la valeur de ce type de champ.

Pour ouvrir le document Word depuis Excel, j'utilise le code suivant :

Code :

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

1
2
3
4
5
6
 
Set docFiche = appWord.Documents.Open(Filename:=strFicFiche, ReadOnly:=True)
 
If docFiche.ProtectionType <> wdNoProtection Then
  docFiche.Unprotect
End If

[scrouet]

Voici un exemple de champs présents dans le document. Je n'ai pas de difficultés à récupérer le premier, de type texte. En revanche, c'est le seconde, de type liste déroulante, qui me pose problème.

[ouskel'n'or]

Teste ça, si tu peux en tirer quelque chose...

Code :

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

1
2
3
4
5
Dim FF As FormField, Nom As String
    For Each FF In docFiche.FormFields
        Nom = FF.Name 'nom de la liste déroulante
        MsgBox Nom & "  " & FF.Result 'Te donne la donnée affichée
    Next

Courage, tu "les" auras

Edit
Si tu as un pb avec la déclaration "As FormField", remplace par "as object"

[scrouet]

Ca marche très bien ! Merci !
En revanche, comme certaines fiches n'ont pas tous les champs (voire aucun), j'aimerais tester l'existence du champ. Y aurait-il une solution relativement simple et efficace qui ne passe pas par une boucle sur tous les champs ou une interception d'erreur ?