exporter un tableau de donnée vers un document word

**demerzel0** · 02/11/2005, 14h03

bonjour a tous,

je voudrais inserer un tableau de données dans un document word depuis access, je l'ais deja fait et ça marche avec le code suivant :

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
37
38
39
40
41
Dim myrange As Range
Dim objTable As Table
 
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Monthly Groundwater Chem Update_TE")
 
Dim nb_col As Long
Dim nb_lignes As Long
nb_col = rst.Fields.Count
nb_lignes = rst.RecordCount
'MsgBox nb_col & " " & nb_lignes
 
 
Set objTable = Word_ajoute_tableau(nb_col, nb_lignes + 1)
objTable.AllowPageBreaks = True
Dim cpt_lig As Integer
Dim cpt_col As Integer
cpt_lig = 0
cpt_col = 0
 
While cpt_col < nb_col
objTable.Cell(cpt_lig + 1, cpt_col + 1).Range.Text = rst(cpt_col).name
objTable.Cell(cpt_lig + 1, cpt_col + 1).Range.Bold = True
cpt_col = cpt_col + 1
 
Wend
cpt_col = 0
 
While cpt_lig < nb_lignes
 
    While cpt_col < nb_col
    objTable.Cell(cpt_lig + 2, cpt_col + 1).Range.Text = rst(cpt_col)
    cpt_col = cpt_col + 1
    Wend
rst.MoveNext
cpt_col = 0
cpt_lig = cpt_lig + 1
Wend
rst.Close
 
Word_Suppression_Lien_OLE

en clair je créé un recordset avec mes données et ensuite je le parcour et remplis mon tableau au fur et a mesure que je lis mon recordset. le probleme est que c'est extremement lent.
N'y a t il pas un moyen pour remplir le tableau et de le rajouter seulement ensuite en un seul bloc au document word plutot que de le remplir au fur et a mesure?
j'ai pensé a quelque chose de plus tordu encore, comment faire pour remplir un tableau excel et ensuite le coller dans mon document word?

sachant que certaine de mes requetes peuvent renvoyer plusieurs centaines de valeurs il me faudrai un solution qui s'execute dans un tps acceptable.

merci d'avance