Discussion :

[j2ee60]

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 :

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\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

[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.

[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

[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.

[j2ee60]

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 :

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\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

[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.

[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 !

[j2ee60]

voici ma macro:

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
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 !

[carden752]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Excel.workbook.worksheets("All_Clients")

[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

[j2ee60]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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