Il s'agit d'obtenir dans une liste déroulante la date du jour, du lendemain, du surlendemain etc.
Par exemple, pour choisir une date de livraison le jour même ou un jour proche.

1 - Dans un module, préparer cette fonction:
Function ListeDesJours(chp As Control, id As Variant, lgn As Variant, col As Variant, code As Variant) As Variant
Dim intDéplacement As Integer
Select Case code
Case acLBInitialize ' Initialise.
ListeDesJours = True
Case acLBOpen ' Ouvre.
ListeDesJours = Timer ' Génère un ID unique.
Case acLBGetRowCount ' Lit le nombre de lignes. 6 = aujourd'hui + les 5 jours qui viennent.
ListeDesJours = 6
Case acLBGetColumnCount ' Lit le nombre de colonnes.
ListeDesJours = 1
Case acLBGetColumnWidth ' Largeur de colonne.
ListeDesJours = -1 ' Utilise la largeur par défaut.
Case acLBGetValue ' Saisit les données.
intDéplacement = 0
ListeDesJours = Format(Now() + intDéplacement + 1 * lgn, "dd/mm/yyyy")
End Select
End Function

2 - Dans le formulaire de saisie, préparer une liste déroulante
"Source Contrôle": monChampDate
"Origine source": ListeDesJours (NB:c'est le nom de la fonction ci-dessus, surtout ne pas placer de signe =)

3 - Variante: pour obtenir la liste des lundis
intDéplacement = Abs((9 - WeekDay(Now)) Mod 7)