Récupération dans excel des résultats d'un sondage diffusé dans Word

Version imprimable

21/03/2012, 12h04
coralie7566

Récupération dans excel des résultats d'un sondage diffusé dans Word

Bonjour à tous
Je dois diffuser une enquête de satisfaction clients sous Word. Pour cela, j'ai créé des cases à cocher, des cases d'option et des zones de textes à remplir par les sondés.
Pour le traitement des résultats de ce questionnaire, plutôt que de recopier tout à la main, j'ai pensé importer automatiquement dans Excel les résultats et les traiter depuis Excel.
J'ai donc dans Excel un code VBA qui ouvre mon document Word, qui le parcours.
Mon problème est que je ne sais pas comment récupérer la valeur des cases cochées par mon utilisateur. Il faudrait que mon code fasse pour chaque champs du formulaire

-> Si la valeur = True (c'est-à-dire si la case est cochée)
->Récupérer le caption (qui correspond à la légende de la case, c'est-à-dire le texte qui apparaît après le bouton (Par exemple : si ma question est "Etes-vous satisfait" il y aura deux caption : "oui" et "non")
->Et recopier ce caption (donc dans l'exemple, oui ou non selon lequel est coché) dans une cellule Excel
->Si la valeur = False (c'est-à-dire si la case n'est pas cochée)
->Passer au champs suivant.

Malgré mes recherches, je ne parviens pas à résoudre mon problème.
Auriez-vous des pistes pour m'aider à avancer ?

Merci d'avance

Coralie
21/03/2012, 16h38
kiki29

Salut, via la FAQ http://excel.developpez.com/faq/?page=Word et

Code:

ActiveDocument.FormFields(x).Result

1 pièce(s) jointe(s)

Bonjour,

Voici mon code :

Citation:

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
26
 
Private Sub CommandButton1_Click()
  Dim WordApp As Object, LeNouveauSondage As Object, feuille As Worksheet, nb_champs As Integer
  Dim i As Integer, j As Integer, Repertoire As FileDialog, derlig As Long, nbfics As Long
  Set WordApp = CreateObject("Word.Application")
  Set feuille = ThisWorkbook.Worksheets("Feuil1")
  WordApp.Visible = True
  With Application.FileDialog(msoFileDialogOpen)
    .Filters.Add "documents Word", "*.doc", 1
    .InitialFileName = "C:\Documents and Settings\All Users"
    .AllowMultiSelect = True
    .Title = "Choisissez le fichier à importer"
    .Show
    nbfics = .SelectedItems.Count
  End With
    For i = 1 To nbfics
      Set LeNouveauSondage = WordApp.Documents.Open(Application.FileDialog(msoFileDialogOpen).SelectedItems(i))
      nb_champs = LeNouveauSondage.fields.Count
      derlig = feuille.Cells.SpecialCells(xlCellTypeLastCell).Row + 1
      For j = 1 To nb_champs
         feuille.Cells(derlig, j) = LeNouveauSondage.fields(j).result
      Next j
      LeNouveauSondage.Close
   Next i
  Set LeNouveauSondage = Nothing
End Sub

Comme tu peux le voir, j'ai :

Citation:

Code:

1
2
3
4
 
For j = 1 To nb_champs
         feuille.Cells(derlig, j) = LeNouveauSondage.fields(j).result
Next j

Tout le reste du code fonctionne, c'est cette partie qui me pose problème. J'ai donc demandé à excel de m'afficher le résultat dans une MsgBox. Je te met en PJ le résultat de la MsgBox. J'ai l'impression que Excel ne parviens pas à lire la valeur du formulaire Word.
Qu'en penses-tu ?

Coralie