[WD-2007] Utiliser une variable dans une instruction SQL - publipostage [Résolu]

[paulinegue]

Bonjour,

Je souhaite automatiser un publipostage, en ne gardant que certaines valeurs de mon fichier source. J'ai donc le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub CommandButton1_Click()
 
Dim appWord As Word.Application
Dim docWord As Word.Document
Dim appOffice As Office.OfficeDataSourceObject
Dim sql As String
Dim mois As String
 
Application.ScreenUpdating = False
 
Set appWord = New Word.Application
appWord.Visible = True
 
Set docWord = appWord.Documents.Open("C:\Nom2.docx")
 
 
With docWord.MailMerge
.MainDocumentType = wdDirectory
.OpenDataSource _
Name:="C:\facturation.xlsm", _
SQLStatement:="SELECT *" & _
"FROM [Facturation$]" & _
"WHERE [Langue]= 'Anglais'" & _
"And [Facture1]= 'mai'"
 
 
.Execute Pause:=False
 
End With
 
End Sub

Ce code fonctionne bien, mais j'aurai besoin que l'utilisateur renseigne le mois de facturation sur lequel il veut réaliser le publipostage.

Je veux donc insérer une variable dans ma requête sql et c'est là que ça coince :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub CommandButton1_Click()
 
Dim appWord As Word.Application
Dim docWord As Word.Document
Dim appOffice As Office.OfficeDataSourceObject
Dim sql As String
Dim mois As String
 
Application.ScreenUpdating = False
 
Set appWord = New Word.Application
appWord.Visible = True
 
Set docWord = appWord.Documents.Open("C:\Nom2.docx")
 
mois = InputBox(prompt:="essai", Title:="facturation")
 
With docWord.MailMerge
.MainDocumentType = wdDirectory
.OpenDataSource _
Name:="C:\facturation.xlsm", _
SQLStatement:="SELECT *" & _
"FROM [Facturation$]" & _
"WHERE [Langue]= 'Anglais'" & _
"And [Facture1]= mois"
 
 
.Execute Pause:=False
 
End With
 
End Sub

J'ai essayé diverses syntaxes pour intégrer la variable à la requête, mais soit l'éditeur VBA me signale que j'ai une erreur de syntaxe, soit le code ne marche plus. Est-ce que vous auriez des idées ?


Merci beaucoup !


Pauline

[Heureux-oli]

Salut,


On peut toujours essayer

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
...
Dim SQL as String
...
...
SQL  ="SELECT *" & _
"FROM [Facturation$]" & _
"WHERE [Langue]= 'Anglais'" & _
"And [Facture1]= '" & mois & "';"
...
 
...
msgbox SQL
 
...
 
Name:="C:\facturation.xlsm", _
SQLStatement:=SQL

[paulinegue]

Bonjour Heureux-oli,


Merci de m'avoir proposé cette solution ! Malheureusement, cela ne marche toujours pas, même si la MsgBox me permet de vérifier que la variable est bien prise en compte dans la requête.

En effet, quand je clique sur mon bouton, le publipostage ne s'effectue pas directement : une boîte de dialogues "Select Table" s'ouvre mais mon fichier source n'apparaît pas dans les choix proposés.

Du coup, je suis obligée d'annuler le processus, et j'obtiens l'erreur "Run-time error '4198' - Command failed".


Est-ce que vous auriez d'autres idées ?


Merci beaucoup en tout cas !


Pauline

[paulinegue]

Bonjour,

Je viens de tester à nouveau le code et il marche, c'est fantastique !Merci Heureux-Oli ! Mon erreur venait du fait que ma requête SQL demandait un classement par ordre alphabétique :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
...
 
With docWord.MailMerge
.MainDocumentType = wdDirectory
.OpenDataSource _
Name:="\\chgedc01\Staff docs\ASC Geneva\Pauline\Facturation\facturation.xlsm", _
SQLStatement:="SELECT *" & _
"FROM [Facturation$]" & _
"WHERE [Langue]= 'Allemand'" & _
"And [Decision] LIKE '3%'" & _
"And [Facture1]= '" & mois & "';" & _
"ORDER BY [Nom]"
 
...

Quand j'ajoute cette dernière ligne, le code ne fonctionne plus. Du coup, une autre question se pose : comment faire pour que mes données se classent par ordre alphabétique ?


Merci beaucoup !


Pauline

[bbil]

le ";" signe la fin de la commande SQL, place ton code supplémentaire avant ce point-virgule.

[paulinegue]

Bonjour,

Ca marche parfaitement maintenant !


Mille merci de votre aide !


Pauline