Bonjour à tous,
Plus bidouilleur que réél utilisateur, j'ai crée une bdd pour gérer ma facturation. Via un bouton dans un formulaire je souhaite réaliser un publipostage sous word pour envoyer mes courriers de relance concernant mes impayés. J'ai trouvé différents codes au gré de mes recherches sur le web mais aucuns ne fonctionnent.
Voici le dernier que j'ai tenté d'utiliser:
Quand je l’exécute le message suivant apparaît:"Erreur de compilation : Type défini par l'utilisateur non défini" et la 4ème ligne "rs As DAO.Recordset" est surlignée...
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
39
40 Sub MergeBM() Dim wApp As Word.Application Dim chemin As String Dim rs As DAO.Recordset Dim db As DAO.Database Dim sql As String sql = "SELECT * from R_pour_publipostage_impayés" Set db = CurrentDb Set rs = db.OpenRecordset(sql) Set wApp = New Word.Application chemin = CurrentProject.Path wApp.Visible = True While Not rs.EOF With wApp .Documents.Open ("C:\Users\Jérôme\Desktop\BIOSANIT\Modèle relance L1.docx_") .ActiveDocument.Bookmarks("Nom").Range.Text = rs.Fields("RAISON_SOCIALE") .ActiveDocument.Bookmarks("Contact").Range.Text = rs.Fields("CONTACT") .ActiveDocument.Bookmarks("Adresse").Range.Text = rs.Fields("ADRESSE") .ActiveDocument.Bookmarks("Complement").Range.Text = rs.Fields("CPLT_ADRESSE") .ActiveDocument.Bookmarks("CP").Range.Text = rs.Fields("CP") .ActiveDocument.Bookmarks("Ville").Range.Text = rs.Fields("VILLE") .ActiveDocument.Bookmarks("Num_fac").Range.Text = rs.Fields("Num_Facture") .ActiveDocument.Bookmarks("Date_fac").Range.Text = rs.Fields("Date_Facture") .ActiveDocument.Bookmarks("Echeance").Range.Text = rs.Fields("Echeance") .ActiveDocument.Bookmarks("Montant").Range.Text = rs.Fields("Montant_TTC") .ActiveDocument.Bookmarks("Civilité").Range.Text = rs.Fields("Civilité") .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
Je vous remercie d'avance pour toute aide que vous pourrez m'apporter.
Partager