Discussion :

[nanousik]

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?

[AlainTech]

Bonjour,

Date te donne un nombre dans les 41000 et des poussières.
Un petit Format devrait te donner quelque chose de plus correct.