Formulaires word et récupération de données

[sellig60]

bonjour
Je cherche à récupérer facilement des données saisies à l'aide de formulaires word pour pouvoir les réutiliser plus tard.
j'ai trouvé l'enregistrement des données au format txt. Le format txt me donne un fichier mais après comment faire pour récupérer ces données à partir de word? Je sais que je peux récupérer ça avec excel mais les personnes qui utilisent mes formulaires ne sont pas assez calés pour le faire et surtout n'ont pas le temps de "bidouiller" en ajoutant les données les unes après les autres.
J'ai cherché à connecter Word 2000 à une base de données mysql.
J'ai bien quelques pistes: pilotes odbc installés sur mon ordi par exemple mais je n'y arrive pas.
J'ai un message d'erreur connexion impossible
connaissez-vous un site où je pourrais trouver une solution?
Merci d'avance
Sellig60

[Heureux-oli]

La connexion des données directe d'un formulaire Word vers une base de données n'est pas possible.

Le solution consiste pour chaque formulaire la récupération des données et l'enregistrement dans une base de données ou une feuille Excel.

Voilà un exemple que j'avais réalisé pour un pote.

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
37
38
39
40
41
42
43
44
45
Sub ReucpFichier()
Dim oFSO As New FileSystemObject
Dim oFil As File
Dim oFold As Folder
 
Set oFold = oFSO.GetFolder("F:\Temp\")
 
For Each oFil In oFold.Files
    If Right(oFil.Name, 3) = "doc" Then
        Debug.Print oFil.Name
 
        Extract (oFil.Name)
    End If
Next oFil
 
Set oFSO = Nothing
 
End Sub
 
Public Function Extract(oFN As String)
Dim wApp As New Word.Application
Dim oDoc As Document
Dim rs As DAO.Recordset
Dim sql As String
Dim i As Integer, j As Integer
 
 
wApp.Documents.Open FileName:="f:\temp\" & oFN
Documents(oFN).Unprotect
 
i = ActiveDocument.Bookmarks.Count
Set rs = CurrentDb.OpenRecordset("Table1", dbOpenTable)
    rs.AddNew
    For j = 1 To i
        rs.Fields(j) = ActiveDocument.Bookmarks(j).Range.Text
    Next j
    rs.Fields(j + 1) = oFN
    rs.Update
 
Documents(oFN).Close SaveChanges:=False
rs.Close
Set rs = Nothing
wApp.Quit
 
End Function