Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Futur Membre du Club
    exporter un tableau de donnée vers un document word
    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

  2. #2
    Futur Membre du Club
    je sait pas si c'est ma questio qui est mal posée ou si personne ne veut m'aider mais j'ai besoin d'aide...

  3. #3
    Membre éprouvé
    salut,
    n'oublies pas les balises code stp.
    Merci.
    Que la Force soit avec vous !
    Data Analyste amateur en autoformation : Python, Bases de données, Langage R, PyDATAS, ERP, CRM, Excel, Datas, ETL, BPM, ...

###raw>template_hook.ano_emploi###