Bonjour,

Je fais une requête sur un fichier excel pour récupérer les informations lorsque la date_rel est antérieur ou égale à aujourd'hui. J'ai ma requête sans erreur mais le résultat n'est pas bon puisque je me retrouve avec des informations lorsque date_rel est le 1er avril 2013.

Voici le code que j'utilise:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Public Function dateSQL(ByVal Madate As Date)
    Dim reponse As String
    reponse = Month(Madate) & "/" & Day(Madate) & "/" & Year(Madate)
    dateSQL = reponse
End Function
et voici ma requête:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
texteSQL = "SELECT *"
texteSQL = texteSQL & " FROM [" & feuille & "$] WHERE date_rel <= #" & VBA.Date & "#"
texteSQL = texteSQL & " AND insee IN (SELECT insee FROM [" & f_horaire & "$] WHERE " & cejour & " <> '')"
texteSQL = texteSQL & " ORDER BY date_rel;"
Si l'un d'entre vous sait ou se situe mon erreur?