Discussion :

[totodelsol]

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:

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

J'ai une erreur sur cette ligne : Set rs = db.OpenRecordset(sql)
"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.

[Robert1957]

Bonjour totodelsol
La ligne 5 devrait se lire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sql = "SELECT courrier.* from courrier;"

Bonne journée

[totodelsol]

Bonjour Robert.
Merci de te pencher sur mon petit problème.
J'ai appliqué ta correction, mais je suis toujours dans la même impasse.

[Robert1957]

Bonjour totodelsol,
Le nom de ta table est bien "courrier"? Parce que le message d'erreur que tu as est causé par l'instruction Set rs. Généralement c'est parce que la déclaration est mal écrite que ça fait ça!

[totodelsol]

Oui ma requête s'appelle bien "courrier".

J'ai seulement l'erreur quand je filtre mon destinataire avec mon formulaire.
Si je supprime cette étape de filtre, mon code fonctionne mais fusionne autant de fois que j'ai de clients présent dans ma requête.
A savoir que si je filtre et que j'affiche ma requête, seul le client choisi est présent dans ma requête.
Tout fonctionne séparément, dès que j'assemble le tout, ça coince.

[Robert1957]

Bonjour totodelsol,
Tu peux mettre le filtre dans ton SQL:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sql = "SELECT courrier.* from courrier WHERE [LeNomDuChampQueTuVeuxFiltrer] =""" & Me.LeNomDuChampDansTonFormulaire & """;"

Pour mon exemple j'ai supposé que le champ était de type texte. Si le champ est numérique pas besoin du """ une seule suffit.

[totodelsol]

Oui, c'est un champ texte.
Sinon ça bloque sur le mot clé "Me".
Le champ que je veux filtrer dans ma requête est "Site" et mon filtre se fait à travers une liste déroulante "cmbSites" dans formulaire indépendant "RechercheSite".

[Robert1957]

Ok dans le code que je t'ai donné j'ai supposé que ton formulaire était toujours ouvert, est-ce le cas? Si oui cmbSites est quoi? Une liste déroulante? Si c'est une liste sur quel est la requête de cette liste?

[totodelsol]

Oui mon formulaire reste ouvert pour le moment, mais il sera appelé a disparaitre dès que j'aurai fais mon choix du destinataire.

CmbSites est une liste déroulante alimentée par le champ Site de ma table TBLSite. Ensuite j'ai [Formulaires]![RechercheSite]![cmbSites] dans le critère Site de ma requête.

[totodelsol]

Je joins mon fichier. J'ai simplement vidé ma base de données.

[Robert1957]

Si tu veux que la requête fonctionne,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[Formulaires]![RechercheSite]![cmbSites]

demande que ton formulaire soit ouvert. Donc si tu lance le code après que ton formulaire soit fermé ta requête ne trouve pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[Formulaires]![RechercheSite]![cmbSites]

Tu devrais avoir un message du genre entrez une valeur de paramêtre pour [Formulaires]![RechercheSite]![cmbSites].

[Robert1957]

je regarde ça immédiatement.

[Robert1957]

Voilà ça fonctionne.
J'ai corrigé ta liste déroulante et un peu de code et noté les explications.

[Robert1957]

Je n'ai pas testé cependant ce que ça donnait dans Word mais tu m'avais dit que ça fonctionnait.
Bonne soirée

[totodelsol]

Je viens de tester. C'est OK, ça fonctionne.
Je vais pouvoir continuer mon projet et surtout comprendre mon erreur.

Merci d'avoir consacrer de ton temps.