Creation d'un tableau Excel depuis un formulaire sous word

Bonjour a tous,

je viens d'envoyer a mes 60 salariés un formulaire word avec des champs a remplir, des cases a cocher, etc...

est ce possible de recuperer toutes les donnees renseignees dans un tableau excel???

dites moi oui please!

et le cas echeant comment?

merci d'avance

Bonjour,

Dans Word, il faut aller dans les options d'enregistrement pour cliquer sur l'option :

Formulaire : enregistrer uniquement les données.

Tu vas récupérer les informations saisies sous forme d'un fichier texte contenant les données séparées par des points virgule.

A toi de les importer ensuite dans Excel, et de les mettre en colonne en utilisant l'option Données - Convertir.

Cordialement,

Je ne sais pas si il existe une méthode simple. Personnellement si je devait le faire, je le ferait à partir d'une macro VBA.

Ce qui nécessite de bien maîtriser ce langage (coté Word et coté Excel).

Exemple de code VBA :

'Il peut être utile de définir dans Excel les valeurs des constantes utilisées par Word dans ces macros

'(Par défaut Word les connait .... mais pas Excel)

Private Const wdCharacter As Byte = 1

Private Const wdWord As Byte = 2

Private Const wdExtend As Byte = 1

Sub Récup_données_Word()

'Définir un objet représentant l'applicaion Word

Dim App_word As Object

'Affecter l'application Word à l'objet

Set App_word = CreateObject("Word.Application")

'La recopie des informations peut se faire sans afficher Word

App_word.Visible = False

With App_word

'Se positionner sur le répertoire contenant le's) fichier(s) Word à ouvrir

.ChangeFileOpenDirectory _

"C:\Documents and Settings\Pierre\Mes documents\Excel\Enquête\"

'Ouvrir le document Word

.Documents.Open Filename:="E01.doc"

'Rechercher les informations dans le document (ici rechercher "Nom : ")

With .Selection

.Find.ClearFormatting

.Find.Text = "Nom : "

.Find.Execute

'Se déplacer de 2 caractères vers la droite

.MoveRight Unit:=wdCharacter, Count:=2

'Sélectionner le nom qui suit

.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

'Copier

.Copy

End With

'Retour dans Excel, selection de la cellule devant recevoir la données copier

Application.ActiveWorkbook.ActiveSheet.Cells(4, 1).Select

'Coller la données

Application.ActiveSheet.Paste

End With

'Quite l'application word

App_word.Quit

'Supprime l'object Word

Set App_word = Nothing

End Sub

Evidement il faudrait l'agrémenter de boucle (pour réperter les instructions pour chaque fichier)

Cordialement

Merci de ces reponses

Pour VBA, comment faire une boucle? comment nommer les fichiers?

Mes données sont sous forme de formulaire sous word et ont donc des noms de signets... n'est ce pas plus simple?

Bonjour,

Je voudrais faire un test ; peux-tu joindre un de tes formulaires ?

Amicalement

Nad

je n'arrive pas a le joindre car il fait 146ko

c un formulaire basique sur word avec des champs a remplir, des listes deroulantes, des cases a cocher...

Salut,

il y a

qui accepte jusqu'à 100 Mo

voici!

merci souris lol