publipostage access / word

[gui-llaume]

Bonjour, j'ai beau lire les posts sur le sujet, je ne trouve pas la solution.

Voici la situation :
une base access qui gere les contrats des clients.
ces contrats somt composés pour faire simple de plusieurs produits.
cela signifie dans que dans access , les données sont sous la forme :
contrat 1 - produit 1
contrat 1 - produit 2
contrat 2 - produit 3
contrat 2 - produit 4
...

Je souhaite faire un publipostage pour imprimer le grand nombre de contrat contenant chacun les produits.

Bien sur, je ne souhaite pas imprimer autant de fois le contrat qu'il y a de produit.

J'arrive pas a faire les ruptures !!!

Plusieurs difficultés : comment imprimer les contrats de maniere unique ?
comment mettre en tableau les différents produits pour chaque contrat ?

merci de votre aide.

[Heureux-oli]

Un peu de lecture

http://heureuxoli.developpez.com/publipostage

[gui-llaume]

je l'ai lu mais malheureusement , j'ai pas su y trouver mon bonheur !!!

ma version d'access ne me permet pas en outre de faire fonctionner ton tuto sur les contrats , probleme qui ressemble un peu au mien ...
le temps passe et je recule ...

Envoyé par Heureux-oli

Un peu de lecture

http://heureuxoli.developpez.com/publipostage

[Heureux-oli]

Quelle est ta version d'Access.

[gui-llaume]

access 2002 sp3
il semble manquer les références ms word 11.0 objet library.
c'est pour ca qu'il arrive pas a executer les script

[Heureux-oli]

Tu dois mette la librairie Word de ta version et ça doit être la 10.

[gui-llaume]

je la trouve pas .
mais c'est pas trop grave. je regarderais chez moi ...

par rapport au pb posé , ne penses tu pas qu'il soit finalement plus facile de gérer le pb directement sous access en générant une macro ou une requete qui va transformer mes lignes :

contrat1 - annexe 1- produit 1
contrat 1- annexe1 - produit 2
contrat 1- annexe 1- produit 2

en une ligne
contrat 1- annexe 1- pdt 1 - pdt 2 - pdt 3

comme cela , toutes les infos se situent sur le meme enregistrements et les données sont plus simples a publiposter ...

[Heureux-oli]

Si je dis que c'est plus facile, je triche, je préfère manipuler les données en Access qu'en Word.

Mais on peut faire avec les deux.

Si tu cherche au niveau du publipostage, il y a plusieurs posts qui traitent de ce genre de publipostage.

[gui-llaume]

sans mentir , je suis pas arrivé au bout de mes peines ...
surtout que la dead line . c'est ce soir ...

[Heureux-oli]

Qu'est-ce qui te bloque pour l'instant ?

[gui-llaume]

en générant une macro ou une requete qui va transformer mes lignes :

contrat1 - annexe 1- produit 1
contrat 1- annexe1 - produit 2
contrat 1- annexe 1- produit 2

en une ligne
contrat 1- annexe 1- pdt 1 - pdt 2 - pdt 3


comment faire ?
créer une table temporaire par une requete sql.
mais comment faire pour envoyer pdt 1 - pdt 2 - pdt3 dans un meme champ ou en tout cas sur une meme ligne ?
il faut faire des boucles dans une fonction ?
en faisant des conditions sur le contenu des champs idcontrat et idannexe

je suis un niveau débutant depuis 1 semaine malheureusement

[Heureux-oli]

Si tu transformes en

contrat 1- annexe 1- pdt 1 - pdt 2 - pdt 3
Tu dois connaître avant de fair equoi que ce soit le nombre maximum de produit que tu vas avoir par commande.


Combien de table ta base de données possède-t-elle ?

On devrait y arriver avec des recordset ou des requêtes multiples.

Code :

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
 
Sub GenerationDocument()
Dim rs1 as dao.recordset
Dim rs2 as dao.recordset
dim stSQL1 as String
dim stSQL2 as String
dim stArti as String
Dim stCom as string
Dim wApp as new Word.Application
 
 
stSQL1 = "Select contrat, annexe from maTable GroupBy contrat"
 
 
Set rs1 = CurrentDB.OpenRecordSet(stSQL1)
stCom = rs1.fields("commande") & " " & rs1.fields("annexe")
 
While Not rs1.EOF
    stSQL = "Select * from maTable where contrat = """ & rs1.fields("contrat") & """;"
    Set rs2 = currentdb.openrecordset(stSQL2)
    While not rs2.EOF
        stArti = rs2.fields("article") & vbCrLf
        rs2.MoveNext
    Wend
    rs2.close
rs1.movenext
wend
rs1.close
wApp.Documents.Add
With wApp.activeDocument.selection 
    .typetext stCom
    .typeText stArti
End With
wApp.visible = True
 
set rs1 = nothing
set rs2 = nothing
 
 
End sub

Voilà à quoi devrait ressembler ton code.

[gui-llaume]

grand merci pout ton aide !!!

au maximum , 6 services dans chaque annexe.

voici ma structure de données .


Pièce jointe 20666

[Heureux-oli]

Avec le code que j'ai mis, il n'y a pas de limite.

Essaie de faire avec et dis moi où tu coince.

[gui-llaume]

Code :

1
2
3
4
5
6
7
8
While Not rs1.EOF
    stSQL = "Select * from temppublipostage where cdcontrat = """ & rs1.Fields("cdcontrat") & """;"
    Set rs2 = CurrentDb.OpenRecordset(stSQL2)
    While Not rs2.EOF
        stArti = rs2.Fields("cdservice") & vbCrLf
        rs2.MoveNext
    Wend
    rs2.Close

quand j'execute ta macro, il me dit erreur 3078 : le moteur n'a pas trouvé la base ou la requete.
c'est un pb de "" mais ou ca ?

[Heureux-oli]

C'est tout le code que tu dois mettre, l'erreur ne se situe pas là, mais à l'affectation de la variable stSQLX

[gui-llaume]

j'ai bien tout mis et remplacé qq champ :

Code :

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
ub GenerationDocument()
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim stSQL1 As String
Dim stSQL2 As String
Dim stArti As String
Dim stCom As String
Dim wApp As New Word.Application
 
 
stSQL1 = "SELECT temppublipostage.cdcontrat, temppublipostage.cdannexe FROM temppublipostage GROUP BY temppublipostage.cdcontrat, temppublipostage.cdannexe;"
 
 
Set rs1 = CurrentDb.OpenRecordset(stSQL1)
stCom = rs1.Fields("cdcontrat") & " " & rs1.Fields("cdannexe")
 
While Not rs1.EOF
    stSQL = "Select * from temppublipostage where cdcontrat = """ & rs1.Fields("cdcontrat") & """;"
    Set rs2 = CurrentDb.OpenRecordset(stSQL2)
    While Not rs2.EOF
        stArti = rs2.Fields("cdservice") & vbCrLf
        rs2.MoveNext
    Wend
    rs2.Close
rs1.MoveNext
Wend
rs1.Close
wApp.Documents.Add
With wApp.ActiveDocument.Selection
    .TypeText stCom
    .TypeText stArti
End With
wApp.Visible = True
 
Set rs1 = Nothing
Set rs2 = Nothing
 
 
End Sub

mais quand je l'exécute, il repere un probleme sur la ligne
Set rs2 = CurrentDb.OpenRecordset(stSQL2)

la valeur de stSQL2 et "".
c'est donc au niveau de la ligne du dessus l'erreur ?

stSQL = "Select * from temppublipostage where cdcontrat = """ & rs1.Fields("cdcontrat") & """;"

[Heureux-oli]

Lorsque tu affecte une valeur, tu le fais à stSQL et tu oublies le 2.

[gui-llaume]

grand merci pour ton aide.

je crois que je vais avoir du boulot ce week end ...

bon we.

guillaume

[Heureux-oli]

Reviens quand tu veux.