Bonjour à tous.
Je me retourne vers vous, car depuis 2 jours je tourne en rond.
Je rencontre une difficulté avec la fusion fusion vers Word.
J'ai 2 tables :
- TBLRaison pour les raisons sociales entreprises
- TBLSites pour les différents sites.
Je veux fusionner des champs adresse, nom, prénom etc dans un document Word déjà établi avec des signets.
Le problème est que je ne veux pas faire de publipostage, mais fusionner qu'un seul document Word. J'ai donc réaliser une requête me permettant de lié TBLRaison et TBLsites. Ensuite avec un formulaire je peux extraire dans cette requête mon destinataire à qui je veux envoyer un courrier.
Quand je fusionne avec ce code:
J'ai une erreur sur cette ligne : Set rs = db.OpenRecordset(sql)
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 wApp As Word.Application Dim rs As DAO.Recordset Dim db As DAO.Database Dim sql As String sql = "SELECT * from courrier" Set db = CurrentDb Set rs = db.OpenRecordset(sql) Set wApp = New Word.Application wApp.Visible = True While Not rs.EOF With wApp .Documents.Open ("C:\Users\tony\Desktop\BM Publipostage.docx") .ActiveDocument.Bookmarks("Raison").Range.Text = rs.Fields("Raison") .ActiveDocument.Bookmarks("Nom").Range.Text = rs.Fields("Nom") 'etc.... .ActiveDocument.PrintOut .ActiveDocument.Close (wdDoNotSaveChanges) End With rs.MoveNext Wend rs.Close Set rs = Nothing db.Close Set db = Nothing Set wApp = Nothing End Sub
"Trop peu de paramètres : 1 attendu."
Si je supprime mon formulaire de choix du destinataire, le code fonctionne mais il me réalise un publipostage pour les clients présents dans ma requête.
Avez vous une solution pour mon soucis ? Ou alors de je m'y prends mal ?
Merci pour l'attention que vous porterez à mon sujet.
Partager