Enregistrement des données d'un formulaire Word dans un fichier Excel

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Je débute en vba , et je dois extraire les données d ' un formulaire word vers un fichier excel.

J ' ai donc suivi ce tuto:http://heureuxoli.developpez.com/office/sondage/#L4
et créer un formulaire simple composé de 4 champs de texte montré ci-joint , et
j ' essaie de récupérer les valeurs saisies par l ' utilisateur dans un fichier excel
qui a pour entêtes colonne: Nom | Prenom | Jour de visite | Réservation IBM | Réservation Acer | etc....

J ' ai donc testé la macro suivante:
Code:

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\COUPON REPONSE.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 Sub
mais ca ne fonctionne pas ....
Merci de votre aide

22/03/2011, 13h42
Heureux-oli

Salut,

Je pense pas que ça puisse fonctionner.
Dans le tuto, j'explique comment insérer des champs de formulaire.
Je n'en trouve pas dans ton document, ce qui fait qu'aucune donnée n'est extraite.
22/03/2011, 13h55
j2ee60

Bonjour,

Merci de ton aide , mais mon document est bien constitué de champs de formulaire( ceux inhérents a word 2007, pas les hérités).
En fait , mon fichier est un dotx , mais vu que developpez n ' accepte pas ce genre de fichier , je l ' ai renommé en .doc ( ce qui a du supprimer les contrôles je pense)

Voici le lien ou j ' héberge mon document:

http://dl.free.fr/kxMDBEnty

Merci de ton aide !

Cordialement
22/03/2011, 14h23
Heureux-oli

Salut,

J'avais déjà changé l'extension pour pouvoir l'ouvrir.
Mais mon tuto est axé sur les champs de formulaire hérités, si tu utilises autre chose, ça ne fonctionnera pas.

Bonjour,

Ok , je comprends mieux.
J ' ai modifié mon formulaire comme tu me l ' as suggéré.
http://dl.free.fr/niIQQ4fT0

Maintenant quant j ' exécute la macro sous word
Code:

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\COUPON REPONSE.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 Sub
Ça ne fait rien ( mais en même temps , je ne vois pas dans ce code ou ca initialise le fichier excel ?)

Ce bout de code est supposé enregistrer dans un fichier excel ?
Merci bien

22/03/2011, 15h33
Heureux-oli

Salut,

Pourquoi ce code devrait-il fonctionner avec Excel ?

Dans le tuto, on aborde Outlook, Word et Access (DAO).

Le code d'extraction est une fonction qui est lancée au départ d'une routine dans Access pour alimenter une table.
22/03/2011, 16h04
j2ee60

Bonjour,

Merci de ton aide.
J ' essaye justement d ' adapter le code de ton tuto pour Excel !
Or il ne reconnait pas la variable ThisWorkbook:"La méthode "thisworkbook" de l'objet global a échoué"
J ' ai bien rajouté la référence vers excel

Merci !

voici ma macro:

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
27
28
29
30
31
32
33
34
35
36
Sub import_client()
Dim Fich As Excel.Worksheet
Set Fich = ThisWorkbook.Worksheets("All_Clients")
chemin = "C:\Documents and Settings\EddayanH\Desktop\tutorielrecupinfo"
mesfichiers = Dir(chemin & "*.docx")
Dim Variables As Variant
Variables = Array("nom", "prenom", "dateVisite", "IBM", "Acer", "HP", "Sony", "Toshiba")
 
nb_Champs = 8
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 <> "CouponReponse(document).docx" 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

il me met une erreur a la ligne 2:ThisWorkbook:"La méthode "thisworkbook" de l'objet global a échoué"
j' ai pourtant bien ajouté la référence microsoft excel object.
Merci de votre aide !

22/03/2011, 21h27
carden752

Bonjour,

Thisworkbook correspond au classeur courant, il n'est donc pas reconnu, utilisez plutôt

Code:

Excel.workbook.worksheets("All_Clients")
22/03/2011, 21h43
j2ee60

merci de ton aide!

Mais quant je remplace la ligne , ca me met maintenant :

membre de méthode ou de données introuvable en surlignant le Workbook comme si il ne le reconnaissait pas.
Les référence sont pourtant bien ajoutés .

Merci

Résolu en ouvrant le fichier excel d ' une autre maniere;
Code:

1 2 3 4 Set xls = CreateObject("Excel.Application") xls.Workbooks.Open cheminExcel xls.Visible = True Set xlsheet = xls.Worksheets(1)