Discussion :

[sebinator]

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

[bernardmichel]

Hello et bienvenue sur le forum

Si ton filtre (comme le str..) le laisse suggérer retourne une valeur String :

Code :

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

SQLStatement:="SELECT * FROM [Tb_contacts]WHERE '" & strFiltreall & "'"

[sebinator]

bonjour,

J'ai essayé la ligne :

SQLStatement:="SELECT * FROM [Tb_contacts]WHERE '" & strFiltreall & "'"

et cela ne fonctionne pas. Je n'ai pas de message d'erreur, la fusion s'effectue sur tous les enregistrements.

la variable publique strFiltreall est de type variant.
Elle renvoie par exemple la valeur suivante :

([Type]='comédiens' AND [Zone_pays]='France')


merci pour votre aide

Seb

[bernardmichel]

Pourquoi donc l'existence des ":" ? Je n'ai jamais vu ce codage... ?

Code :

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

1
2
3
4
5
objWord.MailMerge.OpenDataSource _
        Name:="C:\Local_datas\Access\database\Contacts_Direction.mdb", _
        LinkToSource:=True, _
        Connection:="TABLE Tb_contacts", _

Pourquoi n'écris-tu pas :

Code :

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

1
2
 
SQLStatement = "SELECT * FROM [Tb_contacts]WHERE [Type]='comédiens' AND [Zone_pays]='France'"

Sinon, alors, divises ta variable en deux, strType =... et strZone = ...

[sebinator]

ben... heu... pour les : ils sont dans le tuto... j'ai fait un copié-collé
http://heureuxoli.developpez.com/publipostage/#LI-B-5-a
section I-B-5-e. Ajout d'une procédure

Pourquoi je n'écris pas :

Code :

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

= "SELECT * FROM [Tb_contacts]WHERE [Type]='comédiens' AND [Zone_pays]='France'"

Les données de filtrage changent, si c'était figé, oui je taperais tout en dur cela m'éviterai cette prise de tête..


strFiltreall : je l'obtiens en concaténant plusieurs valeurs de listes modifiables. cela me permet de filtrer un sous formulaire convenablement.

[sebinator]

c'est résolu ;-)

La syntaxe exacte est :

Code :

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

SQLStatement:="SELECT * FROM [Tb_contacts]WHERE " & strFiltreallpub

merci encore