Bonjour,

voici le problème auquel je suis confronté
je souhaiterais faire ceci (j'écris du pseudo code) sous VBA :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
ancienneDate = dateActuelle - 21 jours
 
while ancienneDate <= dateActuelle
        ...
       ancienneDate = ancienneDate +1 jour
fin while
ce qui me pose problème, c'est que toutes les dates doivent être au format "mm-dd-yyyy" (car base access). Et ce doit bien être des formats Date pour permettre d'ajouter un jour à ancienneDate dans la boucle while.

j'ai testé ce genre de chose :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
dim date1 as date
date1 = CDate(dateAdd(-21,"d",Format(Date, "dd/mm/yyyy")))


mais cela ne va pas car la fonction CDate utilise le format de date du système, qui est chez moi "dd-mm-yyyy"

je cale un peu, si certains peuvent m'aider, merci...