Discussion :

[pauline.guedon]

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

[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

[Lilou51]

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

[pgz]

Bonjour.

Tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement

PGZ

[Invité]

Bonsoir,

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

Les dates toujours aux format international!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pauline.guedon]

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 :



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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 & "';"

[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