Date dans requête SQL

Version imprimable

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:

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

05/02/2015, 17h45
Kimy_Ire

Bonjour Pauline,

Je ne suis pas un grand expert dans le domaine, mais, de loin, je te propose de vérifier le formalisme de ta colonne "FinPrevue".
Les dates en VBA ont des formalismes qui peuvent varier.

Qu'as-tu dans ta variable "varDate" et correspond-elle au formalisme de la colonne "FinPrevue" ?

Cordialement,
Kimy
05/02/2015, 18h01
Lilou51

il ne faudrait pas un format date américain, par hasard ?
# MM/JJ/AAAA #
05/02/2015, 18h02
pgz

Bonjour.

Tu peux essayer

Code:

"AND [FinPrevue] = #" & Format$(varDate, "mm/dd/yyyy") & "#"

Cordialement

PGZ
05/02/2015, 18h04
Invité

Bonsoir,

Citation:

Envoyé par Lilou51

il ne faudrait pas un format date américain, par hasard ?
# MM/JJ/AAAA #

Les dates toujours aux format international!

Code:

"AND Format([FinPrevue],'yyyy-mm-dd hh:mm:ss') = '" & Format(varDate, "yyyy-mm-dd hh:mm:ss") & "'"
06/02/2015, 11h36
pauline.guedon

1 pièce(s) jointe(s)

Bonjour,

Merci à tous pour vos réponses !

J'ai testé la solution de pgz, mais le publipostage ne s'effectue pas, j'obtiens la fenêtre suivante :

Pièce jointe 168262

Avec la solution de rdurupt, ça marche mieux (la fenêtre précédente ne s'affiche plus), mais le publipostage ne s'effectue tout de même pas : j'obtiens une erreur "Run-time error 5631" indiquant qu'il n'y a pas de données correspondant à la date indiquée... ce qui n'est pas vrai.

J'ai testé du coup plusieurs écritures de date dans ma TextBox, mais je n'arrive à rien.

Est-ce que cela peut venir du format de dates de mon tableau Excel ? Est-ce que je peux modifier autre chose dans mon code ?

Merci !

Pauline
06/02/2015, 12h08
Invité

Bonjour,
dans mon exemple, j'ai formaté avec l'heur!
peut être que les dates dans ta table sont avec les heurs également ce qui peut expliquer ça
Where '2015-01-01 10:22:30' = '2015-01-01 15:55:02' ne te retournera rien ! on va enlever l'heur du format.

Code:

AND Format([FinPrevue],'yyyy-mm-dd') = '" & Format(varDate, "yyyy-mm-dd") & "'"

Citation:

Envoyé par pauline.guedon

Bonjour,
Est-ce que cela peut venir du format de dates de mon tableau Excel ? Est-ce que je peux modifier autre chose dans mon code ?

non car j’applique le même format pour le champ [FinPrevue] et varDate
06/02/2015, 12h47
pauline.guedon

Bonjour,

Merci pour ta réponse rdurupt. J'ai oublié de préciser que j'avais déjà enlevé les heures, donc c'est bien le code que tu mentionnes ci-dessus que j'ai utilisé. Le publipostage ne fonctionne quand même pas, les données correspondant à la date indiquée n'étant pas prises en compte.

Est-ce qu'il y a autre chose que je peux essayer ?

Merci beaucoup !

Pauline

Code:

1
2
3
4
SQL3 = "SELECT frm.* FROM [CC$] as frm " & _
"WHERE frm.[Time]='Mat' " & _
"AND Format(frm.[FinPrevue],'yyyy-mm-dd') = '" & format( varDate,"yyyy-mm-dd") & "' " & _
"AND frm.[Langue]= '" & cours & "';"

06/02/2015, 13h35
pauline.guedon

Bonjour,

Mea culpa, le 1er morceau de code fonctionnait déjà très bien... J'avais mal regardé mes filtres, donc il n'y avait effectivement pas de données pour la date que je cherchais.

Merci beaucoup pour votre aide !!

Pauline