Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Publipostage vord : prob. avec une clause Where

Publipostage vord : prob. avec une clause Where

2 réponses
Avatar
seb.....
Bonjour,

J'ai un module publipostage avec le code suivant :

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 strFiltreallpub "
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing

End Sub

J'ai une variable publique strFiltreallpub qui renvoie une valeur string
(par ex : [Type]='comédiens' AND [Zone_pays]='France' )

Avec la ligne : SQLStatement:="SELECT * FROM [Tb_contacts]WHERE
strFiltreallpub" la variable n'est pas prise en compte, je n'ai pas de
message d'erreur.

J'ai testé avec la commande en dur : SQLStatement:="SELECT * FROM
[Tb_contacts]WHERE [Type]='comédiens' AND [Zone_pays]='France'" et cela
fonctionne.

alors pourquoi cela ne fonctionne pas avec la variable strFiltreallpub ??

merci d'avance

seb
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Thierry (ze Titi)
Bonjour seb..... !

objWord.MailMerge.OpenDataSource _
Name:="C:Local_datasAccessdatabaseContacts_Direction.mdb", _
LinkToSource:=True, _
Connection:="TABLE Tb_contacts", _
SQLStatement:="SELECT * FROM [Tb_contacts]WHERE " & strFiltreallpub

devrait mieux fonctionner...

Message du lundi 05/11/2007

Bonjour,

J'ai un module publipostage avec le code suivant :

Sub MergeIt()
Dim objWord As Word.Document
Set objWord =
GetObject("C:Local_datasAccessPublipostagePublipostage.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_datasAccessdatabaseContacts_Direction.mdb", _
LinkToSource:=True, _
Connection:="TABLE Tb_contacts", _
SQLStatement:="SELECT * FROM [Tb_contacts]WHERE strFiltreallpub "
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing

End Sub

J'ai une variable publique strFiltreallpub qui renvoie une valeur string (par
ex : [Type]='comédiens' AND [Zone_pays]='France' )

Avec la ligne : SQLStatement:="SELECT * FROM [Tb_contacts]WHERE
strFiltreallpub" la variable n'est pas prise en compte, je n'ai pas de
message d'erreur.

J'ai testé avec la commande en dur : SQLStatement:="SELECT * FROM
[Tb_contacts]WHERE [Type]='comédiens' AND [Zone_pays]='France'" et cela
fonctionne.

alors pourquoi cela ne fonctionne pas avec la variable strFiltreallpub ??

merci d'avance

seb


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info

Avatar
seb.....
Merci Thierry,

effectivement, avec la syntaxe correcte ca va tout de suite beaucoup mieux
;-)

Bonne journée


"Thierry (ze Titi)" a écrit dans le
message de news:
Bonjour seb..... !

objWord.MailMerge.OpenDataSource _
Name:="C:Local_datasAccessdatabaseContacts_Direction.mdb", _
LinkToSource:=True, _
Connection:="TABLE Tb_contacts", _
SQLStatement:="SELECT * FROM [Tb_contacts]WHERE " & strFiltreallpub

devrait mieux fonctionner...

Message du lundi 05/11/2007

Bonjour,

J'ai un module publipostage avec le code suivant :

Sub MergeIt()
Dim objWord As Word.Document
Set objWord >> GetObject("C:Local_datasAccessPublipostagePublipostage.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_datasAccessdatabaseContacts_Direction.mdb", _
LinkToSource:=True, _
Connection:="TABLE Tb_contacts", _
SQLStatement:="SELECT * FROM [Tb_contacts]WHERE strFiltreallpub "
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing

End Sub

J'ai une variable publique strFiltreallpub qui renvoie une valeur string
(par
ex : [Type]='comédiens' AND [Zone_pays]='France' )

Avec la ligne : SQLStatement:="SELECT * FROM [Tb_contacts]WHERE
strFiltreallpub" la variable n'est pas prise en compte, je n'ai pas de
message d'erreur.

J'ai testé avec la commande en dur : SQLStatement:="SELECT * FROM
[Tb_contacts]WHERE [Type]='comédiens' AND [Zone_pays]='France'" et cela
fonctionne.

alors pourquoi cela ne fonctionne pas avec la variable strFiltreallpub ??

merci d'avance

seb


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info