Requete EXCEL Date

[Richard.77]

Bonjour a tous!

J'ai un probleme avec mes dates. Ma procédure fonctionne bien mais je n'ai pas les dates souhaités.
Je pense avoir des dates completement aléatoires

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub import3()
 
    Dim Db As DAO.Database
    Dim Rs As DAO.Recordset
    Dim strSQL As String
 
    Set Db = DAO.OpenDatabase("E:\Projet GDP\Requete\base.accdb", False, False)
 
 
 
    strSQL = "SELECT Date, Open FROM [AC#PA] where year(Date) BETWEEN '2010-05-01' AND '2011-01-01'"
 
 
 
 
    Set Rs = Db.OpenRecordset(strSQL, DAO.dbOpenSnapshot)
    Sheets("Feuil2").Range("A2").CopyFromRecordset Rs
 
    Db.Close
 
End Sub

Merci!

[f-leb]

bonjour,

un problème de format de dates peut-être.