Discussion :

[Duvelinho]

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:

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

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...

Je vous remercie d'avance pour toute aide que vous pourrez m'apporter.

[tee_grandbois]

Bonjour,
peux-tu vérifier les références utilisées dans VBA (Menu Outils, Références) ?
Normalement, pour ce que tu souhaites faire, tu devrais avoir au moins les 3 références indiquées dans l"image jointe :

Pièce jointe 226200

[Duvelinho]

Bonjour,
peux-tu vérifier les références utilisées dans VBA (Menu Outils, Références) ?
Normalement, pour ce que tu souhaites faire, tu devrais avoir au moins les 3 références indiquées dans l"image jointe :

Pièce jointe 226200

Merci pour ta réponse.

Effectivement il me manquait MICROSOFT OFFICE 15.0 Accessdatabase engine object!
Après modif quand j'exécute j'ai la fenêtre Macros qui s'ouvre et qui me demande d'entrer un nom de macro... J'avoue que je suis perdu...

[tee_grandbois]

Après modif quand j'exécute j'ai la fenêtre Macros qui s'ouvre et qui me demande d'entrer un nom de macro...

As-tu une ligne de code surlignée en jaune ?
Peux-tu imprimer ce qui apparait à l'écran ? (message, fenêtre ...)

[Duvelinho]

As-tu une ligne de code surlignée en jaune ?
Peux-tu imprimer ce qui apparait à l'écran ? (message, fenêtre ...)

Bonjour! Non je n'ai pas de ligne de code surlignée mais la fenêtre suivante qui s'ouvre :

[Duvelinho]

Bon je suis reparti du début en effaçant mon module et en en recréant un. J'ai maintenant le résultat suivant:


Je ne comprends pas...

[tee_grandbois]

Bonjour,
R_pour_publipostage_impayés est une table ou une requête ? si c'est une requête, peux-tu poster le SQL ?