Discussion :

[biscotto23]

Bonjour,

Je cherche à exporter en vba des données depuis une base Access vers un template Word.
Ce template est sous la forme d'une facture soit un nom-prénom-adresse d'un client et un tableau contenant le détail des surcouts.

Je vois très bien comment exporter les données nom-prénom-adresse client à partir d'une requête filtrée Access dans des champs de fusion Word.
En revanche, je n'arrive pas à trouver comment transférer les données relatives aux surcouts (plusieurs enregistrements) dans le tableau Word issues d'une autre requête filtrée Access.

N'hésitez pas à me dire si je ne suis pas très clair dans mon message.
Merci pour votre aide.

Cordialement.

[hyperion13]

Salut
Peut-être commencer par lire cet excellent tuto
un extrait de votre bdd et son template serait la bienvenue pour faire avancer le schmilblick.

[biscotto23]

Bonjour,

Merci pour la réponse, effectivement quelques éléments m'ont permis d'avancer.
J'ai réussi à écrire le code suivant (application du tutoriel I-B-7-c.)

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
Private Sub Commande1_Click()
 
Dim rs As Recordset
Dim db As Database
Dim stSQL As String
Dim strChemin As String
strChemin = CurrentProject.Path
Dim wApp As Word.Application
Set wApp = New Word.Application
wApp.Visible = True 'permet d'afficher à l'écran le transfert de texte
 
'ouverture du document Word
wApp.Documents.Open ("C:\Template.docx")
stSQL = "Select item1, item2 From Table1"
Set db = CurrentDb
 
Set rs = db.OpenRecordset(stSQL) 'définition du recordset table1
    While Not rs.EOF 'boucle pour récuperer les enregistrements de la table liée
        With wApp.Selection
            .TypeText rs.Fields("item1")
            .TypeText rs.Fields("item2")
            .TypeParagraph
        End With
    rs.MoveNext
    Wend
' libération des objets
'afin de pourvoir manipuler le fichier Word, l'application n'est pas fermée
Set rs = Nothing
Set db = Nothing
End Sub

J'obtiens bien les résultats attendus mais j'aimerais pouvoir définir en vba :
- la mise en forme des résultats sous forme d'un tableau avec deux colonnes "Item1" et "Item2".
- ajouter ce tableau après un signet.

Comment modifier svp mon code ?
Merci encore pour votre aide.

[hyperion13]

re,
votre code ne fait que copier vos valeurs sur des lignes de paragraphe !
Pour créer des tableaux en vba dans Word c'est ici et là

J'obtiens bien les résultats attendus mais j'aimerais pouvoir définir en vba :
- la mise en forme des résultats sous forme d'un tableau avec deux colonnes "Item1" et "Item2".

ici les signets en vba, votre code tableau devra être copier après.

- ajouter ce tableau après un signet.