Discussion :

[OLNordine]

Bonjour,

J'ai crée un formulaire sous word 2007 mais je n'arrive pas à exploiter les retours sous Excel:

[Pierre Fauconnier]

Bonjour

Tu peux être plus explicite?

[OLNordine]

Bonjour,

J'ai crée un formulaire sous word 2007 mais je n'arrive pas à exploiter les retours sous Excel: je pensais pouvoir tranformer aisement tous retours en xml et récupérer les réponse sous excel mais en faisant de cette manière toutes les case à cocher sont perdus.

Quelqu'un aurait il une idée pour basculé toute les réponses des formulaires dabs une base excel.

Je dispose également d'infopath

[Heureux-oli]

Salut,

Normalement, on peut récupérer les données du formulaire sans problème !

Jette un oeil à ce tuto, c'est avec Access, mais on peut le faire aussi avec Excel.

http://heureuxoli.developpez.com/office/sondage/

[OLNordine]

J'ai suivi ce tutorat mais quand j'essaye de l'adapter à excel j'enchaine les bugs:
1. la funtion Extract ne fonctionne pas chez moi:
tu vois dans la page 16 la partie
"Set oDoc = wApp.Documents.Open(Filename:="C:\Documents and Settings\ouldlamara\Bureau\Prime\test\Sondage\" & oFN)
oDoc.Unprotect
i = oDoc.FormFields.Count"

ne fonctionne pas: après avoir lancé le programme pas à pas oDOC il n'y a rien à l'intérieure
et l'entier i est toujours à 0

alors j'ai sûrement fait un bétise mais je ne sais pas ou.

En te remerciant par avance

[Heureux-oli]

Salut,

Seule une partie du tuto te concerne.

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
19
20
21
22
23
Public Sub Extract()
On Error Resume Next
Dim wApp As New Word.Application
Dim oDoc As Word.Document
Dim i As Integer
 
 
Set oDoc = wApp.Documents.Open(FileName:="C:\temp\sondage\monDoc.doc")
 
oDoc.Unprotect
 
i = oDoc.FormFields.Count
Debug.Print i
 
    For i = 1 To oDoc.FormFields.Count
        debug.print  oDoc.FormFields(i).Result
 
    Next i
 
Set oDoc = Nothing
wApp.Quit
 
End Function

Essaie comme ça pour voir !

[OLNordine]

Bonjour,

Merci pour tes réponses mais je bloques toujours sur la partie:
"Set oDoc = wApp.Documents.Open(Filename"
lorsque je lance la lecture du programme en mode pas à pas oDOC n'est pas initialise donc la suite ne fonctionne pas (: i=0)?

[OLNordine]

j'ai une autre question:

Lorsque je fait alt+f9 tous les champs texte du formulaire devrait être sous FORM{"FORMTEXT"} alors que moi j'ai que du {"text"} cela change quelque chose?

car je voulais employer une autre méthode pour importer le formulaire c'est >> Outils>> option>>enregistrement>>Formulaires: enregistements uniquement les données puis sauvegarde sous txt
mais parceque apparement tous les champs ne sont pas FORM{"FORMTEXT"} cela ne fonctio!nne pas

[Heureux-oli]

Salut,

Peux-tu mettre le document sur le forum ?