Bonjour,

J'ai récupéré le tuto pour faire du publipostage access/word.

J'ai des petit soucis dans la rédaction d'une ligne sql.

J'ai besoin de passer une variable publique (strFiltreall) dans une clause WHERE :


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
Sub MergeIt()
Dim objWord As Word.Document
Set objWord = GetObject("C:\Local_datas\Access\Publipostage\Publipostage.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 Contacts_Direction comme source de données pour la fusion
objWord.MailMerge.OpenDataSource _
        Name:="C:\Local_datas\Access\database\Contacts_Direction.mdb", _
        LinkToSource:=True, _
        Connection:="TABLE Tb_contacts", _
        SQLStatement:="SELECT * FROM [Tb_contacts]WHERE strFiltreall"
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing
                    
End Sub
Je m'en sort pas.. Quand je lance le publipostage, il ne prends pas compte la variable...

Si quelqu'un peut me corriger, je le remercie d'avance

seb