Discussion :

[crovette51101]

Bonjour,
j'utilise Access 2000 et je souhaite faire un module permettant d'insérer dans un document Word, d'abord, en en-tête, tout se qui touche du fournisseur (n° tel, @, rue, nom, ...) puis, dans le corps de la page, toute les commandes lui correspondant en partant d'une table qui contient plusieurs champs (fournisseur, @ fournisseur, telephone, code article, libellé article,...).
Ainsi j'obtiens plusieurs enregistrements avec le meme fournisseur mais avec des commande différentes.
ex :
PSA 03.27.31.... art1 siege
PSA 03.27.31.... art2 echappement
PSA 03.27.31.... art3 capot

Jusque là tout se passe bien, par contre, aprés, afin de l'insérer dans le document word, j'ai rentré dans ce document des mots qui devront etre remplacé par les aleurs des champs avec le code :

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
Dim tableau(8) As String
    tableau(1) = "Téléphone"
    tableau(2) = "Fax"
    tableau(3) = "Raison Sociale 1"
    tableau(4) = "Raison Sociale 2"
    tableau(5) = "Raison Sociale 3"
    tableau(6) = "Rue"
    tableau(7) = "Code Postal"
    tableau(8) = "Code Pays"
    
    
    Dim rs As DAO.Recordset
    Dim x As Integer
    Dim record As String
    With objWord

For x = 1 To 8
        .Selection.Find.ClearFormatting
        Set rs = CurrentDb().OpenRecordset("select * from [355 - Relance Fournisseur]")
        With .Selection.Find
            .Text = "$$$" & tableau(x) & "$$$"
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        record = tableau(x)
        .Selection.Find.Execute
        .Selection.TypeText Text:=rs! & record
        .Selection.TypeParagraph
        rs.Close
        Next

ce que je souhaite faire c'est donc de pouvoir intégrer une variable dans la rs mais ca ne fonctionne pas et si je met:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
record = rs! &tableau(x)
        .Selection.Find.Execute
        .Selection.TypeText Text:=record
        .Selection.TypeParagraph
        rs.Close
        Next

j'aurai une erreur car record serait en texte et ne serait pas en recordset!

Merci de m'aider.

[ancel17]

Est-ce qu'un publipostage ne serait pas plus simple à mettre en oeuvre ?

[Oleff]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Selection.TypeText Text:=rs(record)

Devrait mieux fonctionner.
Pour plus de détails reporte toi à l'aide recordset, objet dao.

[crovette51101]

Désolé Ancel17 mais si tu fais du publipostage, tu ne peux avoir qu'une ligne par page alors que moi je souhaite avoir juste 1 ligne de fournisseur par page mais avec un descriptf de toutes les commande lui correspondant sur cette meme page!

Oleff, merci de ta reponse, j'ai testé et ca fonctionne, j'avais trouvé quelque chose en remplacement : rs.fields qui balaie toute ma table mais je prefere ta solution qui est plus explicite!
Merci beaucoups a vous.