OVH Cloud OVH Cloud

publipostage option de requête

1 réponse
Avatar
REVEL
Afin d'automatiser l'édition des bulletins de salaires de l'association j'ai
créé les instructions suivantes à partir d'un formulaire sous Word 2000 :

Private Sub CommandButton1_Click()
Dim moispaye As String
'définir une variable moispaye

moispaye = InputBox("Mois de la paye : ex janvier")
' Macro1 Macro
' Macro enregistrée le 07/11/2004
'
Documents.Open FileName:="""C:\ASSOC\Paye\Bulletin salaire sur conv
col.doc""", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False,
_
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto

' Macro2maj_mois Macro
' Macro enregistrée le 07/11/2004
'
MsgBox (moispaye)
' affiche le mois qui a été défini pour vérification

ActiveDocument.MailMerge.DataSource.QueryString = _
"SELECT * FROM C:\ASSOC\Paye\simulation 2004.xls WHERE ((mois =
'novembre' ))" _
& ""
End Sub

L'instruction SELECT ... FROM ...WHERE ci-dessus ressort directement de
l'enregistrement macro de l'aide au publipostage Option de Requete dans
laquelle j'ai écrit novembre

Mon problème est de faire en sorte que après WHERE (( mois = la valeur de
ma variable moispaye définie au tout début.



Pouvez-vous m'aider à formuler correctement cetee condition WHERE

Merci d'avance

1 réponse

Avatar
geo
Bonsoir à toi aussi.

Au lieu de 'novembre' tu mets MoisPaye.


-----Message d'origine-----
Afin d'automatiser l'édition des bulletins de salaires de
l'association j'ai

créé les instructions suivantes à partir d'un formulaire
sous Word 2000 :


Private Sub CommandButton1_Click()
Dim moispaye As String
'définir une variable moispaye

moispaye = InputBox("Mois de la paye : ex janvier")
' Macro1 Macro
' Macro enregistrée le 07/11/2004
'
Documents.Open FileName:="""C:ASSOCPayeBulletin
salaire sur conv

col.doc""", _
ConfirmConversions:úlse, ReadOnly:úlse,
AddToRecentFiles:úlse,

_
PasswordDocument:="", PasswordTemplate:="",
Revert:úlse, _

WritePasswordDocument:="",
WritePasswordTemplate:="", Format:= _

wdOpenFormatAuto

' Macro2maj_mois Macro
' Macro enregistrée le 07/11/2004
'
MsgBox (moispaye)
' affiche le mois qui a été défini pour vérification

ActiveDocument.MailMerge.DataSource.QueryString = _
"SELECT * FROM C:ASSOCPayesimulation 2004.xls
WHERE ((mois =

'novembre' ))" _
& ""
End Sub

L'instruction SELECT ... FROM ...WHERE ci-dessus ressort
directement de

l'enregistrement macro de l'aide au publipostage Option
de Requete dans

laquelle j'ai écrit novembre

Mon problème est de faire en sorte que après WHERE ((
mois = la valeur de

ma variable moispaye définie au tout début.



Pouvez-vous m'aider à formuler correctement cetee
condition WHERE


Merci d'avance





.