Extraire sur excel les retours sondage de formulaires Word

Bonjour,

Ci-joint le fichier. Il y a des données textes, des cases à cocher et des listes déroulantes. tous les champs doivent se retrouver dans la base de donnée excel

https://www.cjoint.com/c/DBkrhjXD8iV

Merci pour votre réponse

bonjour,
pouvez vous joindre un fichier word (avec Cjoint.com) pour exemple.
vous collez le lien dans votre reponse.
est ce que tous les words ont la même structure ?
voulez vous extraire toutes les données ?
comment voulez vous organiser les données sur excel ?

Ce que l'on conçoit bien s'énonce clairement,
Et les mots pour le dire arrivent aisément.

bonjour,
on peut developper une macro. j'attends de voir ce que tu decides. j'ai dejà un petit bout de code qui fonctionne pour word
nota : pourquoi ne pas faire le formulaire sous excel ?

Bonsoir, désolé pour la réponse tardive,

En cherchant j'ai trouvé la macro correspondante. La voici :

Par contre, je voudrais que l'utilisateur en cliquant sur le bouton de macro puisse d'abord choisir le répertoire pour ouvrir le dossier contenant les formulaire et non lui imposer un emplacement de dossier (en gras) mais je ne sais pas quel code et ou le mettre dans cette macro?
Merci

Sub import_client()
Dim Fich As Worksheet
Set Fich = ThisWorkbook.Worksheets("Clients")
chemin = "C:\Documents and Settings\Moi\Bureau\formulaires 1205\"
mesfichiers = Dir(chemin & "*.doc")
Dim Variables As Variant
Variables = Array("NOM", "PRENOM", "NuméroSS", "PasdeNumSS", "Datnaiss", "Paysnaiss", "Comnaiss", "Dept", "Nat", "Sexe", "Adresse", "CP", "Commune", "Télmob", "Télfixe", "mail", "Bourse", "SécuFranceOUI", "ADAssuré", "NomAssuré", "DatenaisAssuré", "LienAssuré", "Autresit", "EuroSuisse", "Plusde28")

nb_Champs = 24
num_row = 1
i = 0

For i = 0 To nb_Champs - 1
Fich.Cells(num_row, i + 1) = Variables(i)
Next i

Set FichierWord = CreateObject("word.application")
FichierWord.Visible = True
FichierWord.DisplayAlerts = False

Do While mesfichiers <> ""
If mesfichiers <> "." And mesfichiers <> ".." And mesfichiers <> "clients.doc" Then
monDocument = chemin & mesfichiers
FichierWord.documents.Open Filename:=monDocument, ReadOnly:=True
num_row = num_row + 1
num_col = 1
For i = 0 To nb_Champs - 1
Fich.Cells(num_row, i + 1) = FichierWord.activedocument.formfields(Variables(i)).result
Next i
FichierWord.documents.Close (0)
End If
mesfichiers = Dir
Loop
FichierWord.Quit

End Sub

bonjour tu peux ajouter :
nom = Application.GetOpenFilename
If nom = "faux" Then
Exit Sub
End If
Workbooks.Open Filename:=nom

Bonjour,

Si j'ai bien compris, je rajoute cela sur ma macro juste avant End Sub?

peux-tu m'indiquer comment je pourrai utiliser ton formulaire Web?