bonjour tout le monde,


j'ai un petit pb dans mon code, VBA + access dans mes dates..


En fait quand j'execute ce code, j'obtiens :

31/03/2006
24/03/2006
17/03/2006
03/10/2006
03/03/2006
24/02/2006
17/02/2006
02/10/2006
02/03/2006
27/01/2006

on peut voir pour le 10/03/2006 j'ai un petit soucis ...
Je n'arrive pas à trouver le problème...

merci à vous.

++

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
Sub test()
 
 Dim db As DAO.Database
    Set db = DBEngine.OpenDatabase("C:\Documents and Settings\mcolsenet\Mes documents\rochebrune.mdb")
 
Dim dateIni As Date
dateIni = "31 / 3 / 2006"
 
MsgBox dateIni
 
For i = 1 To 10
 
  sql = "INSERT INTO test VALUES (#" & dateIni & "#)"
 
 ' MsgBox sql
    ' Exécution de la requête
    db.Execute sql
 
dateIni = dateIni - 7
 
Next i
 
 End Sub