sSQL = "Select * From maTable" & _ " Where Format(monChampDate, "ww", vbMonday, vbFirstFourDays) = " & _ CStr(Format(maDate, "ww", vbMonday, vbFirstFourDays))VB calculera le n° de la semaine au moment où tu vas créer cette requète et Access calculera les le numéro de la semaine des données de son côté.
Format(Ici_la_date, "ww", vbMonday, vbFirstFourDays), tu dois pouvoir écrire :
sSQL = "Select * From maTable" & _ " Where Format(monChampDate, "ww", vbMonday, vbFirstFourDays) = 37"sachant que c'est à toi de fournir le numéro de la semaine (ici 37)