J'ai essayé avec la méthode décrite ici http://heureuxoli.developpez.com/publipostage/#LI-B-5
mais j'ai quelques problemes : d'abord je veux faire le publipostage a partir d'une requete et non d'une table. J'ai supposé qu'il fallait remplacer TABLE par QUERY ds le code mais rien de sur ^^
le code original était
Sub
MergeIt
()
Dim
objWord As
Word.
Document
Set
objWord =
GetObject
("
C:\Local
Data\Access\Publipostage\Publipostage.doc
"
, "
Word.Document
"
)
<code class="vb_comment1">'
Rend
Word
visible
important
puisque
la
fusion
se
fait
à
l'écran.
objWord.
Application
.
Visible
=
True
'
Sélectionne
.la
base
de
données
Comptoir
comme
source
de
données
pour
la
fusion
objWord.
MailMerge
.
OpenDataSource
_
Name:=
"
C:\Local
Data\Access\Publipostage\Comptoir.mdb
"
, _
LinkToSource:=
True
, _
Connection:=
"
TABLE
Employés
"
, _
SQLStatement:=
"
SELECT
*
FROM
[Employés]
"
'
Exécution
de
la
fusion.
objWord.
MailMerge
.
Execute
Set
objWord =
Nothing
End
Sub
apres ma modif c'est
Sub MergeIt()
Dim objWord As Word.Document
Set objWord = GetObject("D:\Cours\2 eme année\Access\TFE 2008\Courrier type retards.doc", "Word.Document")
' Rend Word visible important puisque la fusion se fait à l'écran.
objWord.Application.Visible = True
' Sélectionne .la base de données Comptoir comme source de données pour la fusion
objWord.MailMerge.OpenDataSource _
Name:="D:\Cours\2 eme année\Access\TFE 2008\TFE.mdb", _
LinkToSource:=True, _
Connection:="QUERY Jeux non rentrés pour publipostage", _
SQLStatement:="SELECT * FROM [Jeux non rentrés pour publipostage]"
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing
End Sub
Je sais pas si c'est bon mais de toute facon j'ai une autre erreur: Quand j'appuye sur le bouton, j'ai une erreur : erreur de compilation: Type défini par l'utilisateur non défini.
Quelqu'un peut m'aider ?
</code>