Sub essaiDate()
'cocher Microsoft DAO 3.6 dans Outils/Références
Dim début As Date, fin As Date
Dim bd As Database
Dim rs As Recordset
Set bd = OpenDatabase(ActiveWorkbook.Path & "\access2000.mdb")
début = #5/21/1970#
fin = #6/21/1970#
Sql = "Select * From Client Where dateNaiss>=" & ConvDate(début) & " AND dateNaiss<=" & ConvDate(fin)
Set rs = bd.OpenRecordset(Sql)
i = 2
Do While Not rs.EOF
Cells(i, 1) = rs!Nom_Client
Cells(i, 2) = rs!Ville
Cells(i, 3) = rs!Salaire
Cells(i, 4) = rs!datenaiss
rs.MoveNext
i = i + 1
Loop
End Sub
Function ConvDate(MaDate As Date) As String
ConvDate = "#" & Month(MaDate) & "/" & Day(MaDate) & "/" & Year(MaDate) & "#"
End Function