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
    Inscrit en
    novembre 2005
    Messages
    11
    Détails du profil
    Informations forums :
    Inscription : novembre 2005
    Messages : 11
    Points : 5
    Points
    5
    Par défaut 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
    Inscrit en
    novembre 2005
    Messages
    11
    Détails du profil
    Informations forums :
    Inscription : novembre 2005
    Messages : 11
    Points : 5
    Points
    5
    Par défaut
    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é
    Avatar de Maître Kenobi
    Homme Profil pro
    Technicien Support hotline - accessoirement en auto-formation Systèmes
    Inscrit en
    juillet 2002
    Messages
    671
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien Support hotline - accessoirement en auto-formation Systèmes
    Secteur : High Tech - Produits et services télécom et Internet

    Informations forums :
    Inscription : juillet 2002
    Messages : 671
    Points : 1 235
    Points
    1 235
    Par défaut
    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, ...

Discussions similaires

  1. [WD-2010] Exporter un tableau de donnée vers word
    Par Matrixmax dans le forum VBA Word
    Réponses: 0
    Dernier message: 25/03/2013, 13h48
  2. Passage d'un tableau excel vers un document word
    Par tasse2the dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 04/09/2009, 18h14
  3. Export de base de donnée vers un fichier .txt
    Par VSEB33 dans le forum Bases de données
    Réponses: 4
    Dernier message: 15/01/2008, 11h51
  4. Réponses: 1
    Dernier message: 29/08/2006, 18h03
  5. exportation et importation de données vers excel
    Par Skizo dans le forum Access
    Réponses: 3
    Dernier message: 20/05/2006, 10h50

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo