Bonjour à tous,
j'esaye de faire du publipostage mais les feuilles sortent sans que les
champs soient remplacés.
Voici le code que j'ai repris:
(http://officesystem.access.free.fr/vba/publipostage.htm)
Private Sub Commande0_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
Dim Db As DAO.Database
Dim Rt As DAO.Recordset
Dim Strsql As String
Set Db = CurrentDb
Strsql = "SELECT Client.N°client, Client.civilite, Client.RS,
Client.Adr1, Client.Adr2, Client.cp, Client.Ville FROM Client WHERE
(((Client.Ville)='rennes'));"
Set Rt = Db.OpenRecordset(Strsql)
Rt.MoveFirst
With W_App
.Visible = True
Do Until Rt.EOF
.Documents.Open ("c:\doc1.doc")
.ActiveDocument.Bookmarks("Nclient").SELECT
.Selection.InsertAfter Rt.Fields("Client.N°client")
.ActiveDocument.Bookmarks("civilite").SELECT
.Selection.InsertAfter Rt.Fields("Client.civilite")
.ActiveDocument.Bookmarks("RS").SELECT
.Selection.InsertAfter Rt.Fields("Client.RS")
.ActiveDocument.PrintOut False
.ActiveDocument.Close wdDoNotSaveChanges
Rt.MoveNext
Loop
Rt.Close
Set Rt = Nothing
Set Db = Nothing
.Quit
End With
Set W_App = Nothing
End Sub
j'ai remplacé Rs du code d'origine par Rt car j'ai un champs RS (Raison
sociale)
Quelqu'un aurait-il une solution ? ou bien une base exemple (je n'arrive pas
à en trouver)
Merci à tous ceux qui voudrons bien se pencher sur ce probleme.
