Bonjour,

Le publipostage sur une table ne me pose aucun problème. La mise en place d'un requête paramétrée non-plus.

Cependant, la combinaison des deux si...

J'extraie des enregistrements d'une bd selon leur date,donc par where(((Table.Date)=[Formulaires]![NomFormulaire]![Texte37])­).

Ensuite, dans le cadre d'un publipostage, je souhaiterais fusionner ces enregistrements extraits avec le document de base de fusion *.dot préparé avec les champs de fusion.

Cette partie est plus dure... car il me prend toujours la table entière ou alors rien du tout...

Comment dois-je configurer le script ci-dessous, afin qu'il prenne en compte les enregistrements du résultat de la requête?

Sub MergeIt()
Dim objWord As Word.Document
Set objWord = GetObject("U:\...\Modèle.dot", "Word.Document")
objWord.Application.Visible = True
objWord.MailMerge.OpenDataSource _
Name:="U:\...\BDD.mdb", _
LinkToSource:=True, _
Connection:="TABLE Nomdetable", _
SQLStatement:="SELECT * FROM [Nomdetable]"
objWord.MailMerge.Execute
Set objWord = Nothing

End Sub



De plus, j'aimerais automatiser tout cela + l'impression du document Word fusionné sur simple clic sur un bouton présent sur le formulaire qui comporte le champ de critère [texte37]...


Merci pour votre aide!!

Configuration: Windows XP
Internet Explorer 6.0
Office Pro 2003