Bonjour,

Je souhaite réaliser un publipostage à partir d'un tableau excel. Je voudrais filtrer les données en fonction de dates, mais je ne dois pas avoir écrit ma requête correctement puisque cela ne fonctionne pas.
Je sais que c'est un thème récurrent ... mais je n'ai pas réussi à trouver une réponse adaptée à mon problème dans les différentes discussions.

Voici le code :
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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Private Sub CommandButtonGal_Click()
Dim appWord As Word.Application
Dim docWord As Word.Document
Dim appOffice As Office.OfficeDataSourceObject
 
Dim SQL As String
Dim SQL2 As String
Dim SQL3 As String
Dim SQL4 As String
Dim mois As String
Dim typecours As String
Dim cours As String
Dim Datefin As String
Dim chemin As String
Dim varDate As Date
 
 
Application.ScreenUpdating = False
 
Set appWord = New Word.Application
appWord.Visible = True
 
chemin = "xxxxxxx\FeuillesMMT_Matin"
mois = ActiveDocument.FormFields(1).Result
typecours = ActiveDocument.FormFields(2).Result
cours = ActiveDocument.FormFields(3).Result
Datefin = ActiveDocument.TextBox2
varDate = CDate(Datefin)
 
SQL3 = "SELECT *" & _
"FROM [CC$]" & _
"WHERE [Time]='Mat'" & _
"AND [FinPrevue] = #" & varDate & "#" & _
"AND [Langue]= '" & cours & "';"
 
 
    Set docWord = appWord.Documents.Open(chemin & "\att MMT " & mois & ".docx")
 
    With docWord.MailMerge
    .MainDocumentType = wdFormLetters
    .OpenDataSource _
    Name:="xxxxxx\AllStudents.xlsx", _
    SQLStatement:=SQL3
 
    .Execute Pause:=True
 
    End With
 
 
End Sub
Quelqu'un aurait-il une idée de correction ?


Merci beaucoup !!

Pauline