Discussion :

[TweeKs]

Bonjour à tous, comment allez-vous par cette belle journée de Vendredi ?

J'ai un petit problème qui me bloque les portes du week-end, alors si vous pouviez me donner un coup de pouce

Voici le problème :

Je souhaite éxécuter un publipostage depuis Access à partir d'un modèle de document Word que j'ai déjà créé bien comme il faut.
Le document fait 2 pages et j'aimerais que chaque document personnalisé grâce au publipostage s'enregistre avec un nom personnalisé aussi.
Le résultat attendu serait donc d'avoir par exemple 5 documents de 2 pages (s'il y a 5 destinataires) enregistrés dans un répertoire sous la forme : abc.doc, def.doc, ghi.doc, jkl.doc, mno.doc
Problème en envoyant vers un nouveau document, tout ce met à la suite du même document m'enregistrant donc un seul document de 10 pages nommé abc.doc

Voici le code VBA concernant mon publipostage :

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
 
Set wdApp = New Word.Application
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("E:\MonDocument.doc")
With wdDoc.MailMerge
          .OpenDataSource Name:="E:\MaBase.mdb", SQLStatement:="SELECT * FROM [MaTable] ORDER BY [Nom];"
          .Destination = wdSendToNewDocument
          .SuppressBlankLines = True
          .Execute
          id = .DataSource.DataFields("ID").Value
End With
With ActiveDocument
          .SaveAs "E:\Publipostage\" & id & ".doc"
          .Close
End With
wdDoc.Close False
Set wdDoc = Nothing
wdApp.Quit
Set wdApp = Nothing

Je sens que la réponse est toute bête, mais j'ai pas trouvé dans la FAQ et les tutos, alors merci d'avance à ceux qui pourront m'aider

[TweeKs]

Je vois que mon problème n'a encore suscité aucune réaction.
Si le problème n'est pas clair ou si un point reste flou dîtes le moi surtout

[TweeKs]

Bon après avoir parcouru une nouvelle fois le tuto de Heureux-oli, j'ai changé un peu mon code.
Le problème maintenant c'est qu'il ne trouve aucun enregistrement dans la source de données.

Voici 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
 
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim i, iR As Integer
Dim docName As String
 
[...]
 
Set wdApp = New Word.Application
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("E:\MonDocument.doc")
iR = wdDoc.MailMerge.DataSource.RecordCount
For i = 1 To iR
          With wdDoc.MailMerge
                    .DataSource.FirstRecord = i
                    .DataSource.LastRecord = i
                    .Destination = wdSendToNewDocument
                    .Execute
                    .DataSource.ActiveRecord = i
                    docName = .DataSource.DataFields("ID").Value
          End With
          With ActiveDocument
                    .SaveAs "E:\Publipostage\" & docName & ".doc"
                    .Close
          End With
Next i
wdDoc.Close False
Set wdDoc = Nothing
wdApp.Quit
Set wdApp = Nothing

Voilà, j'ai bien essayé d'ouvrir la source de données avant de définir iR grâce à OpenDataSource (au cas où il ne trouverai pas directement la source du document) mais rien n'y fait, arrivé à la boucle, il ne la parcours pas car iR = -1

[TweeKs]

Ayé j'ai trouvé !

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
 
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim i As Integer
Dim docName As String
Dim rst As Recordset
 
[...]
 
Set wdApp = New Word.Application
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("E:\MonDocument.doc")
For i = 1 To rst.RecordCount
          With wdDoc.MailMerge
                    .OpenDataSource Name:="E:\MaBase.mdb", SQLStatement:="SELECT * FROM [MaTable];"
                    .DataSource.FirstRecord = i
                    .DataSource.LastRecord = i
                    .Destination = wdSendToNewDocument
                    .Execute
                    .DataSource.ActiveRecord = i
                    docName = .DataSource.DataFields("ID").Value
          End With
          With ActiveDocument
                    .SaveAs "E:\Publipostage\" & docName & ".doc"
                    .Close
          End With
Next i
rst.Close
Set rst = Nothing
wdDoc.Close False
Set wdDoc = Nothing
wdApp.Quit
Set wdApp = Nothing

Comme j'avais un recordset ouvert sur la table qui me sert au publipostage pendant tout le programme, plutôt que de le fermer juste avant je l'ai laissé ouvert pour me permettre d'utiliser le RecordCount comme valeur maximale de i.
Bien sûr il ne faut pas oublier d'ouvrir la source avec OpenDataSource.