Premier jour de la semaine

Bonjour le forum,

je cherche une solution pour le problème suivant :

Dans le label d'un userform, je souhaite inscrire la date du lundi de la semaine en cours.

Par exemple, lundi le 12 avril, le label indiquerait le 12 avril. Le mardi 13 avril, il y serait toujours écrit la date du lundi et ça serait vrai jusqu'au dimanche suivant. Le lundi 19 avril, la date inscrite dans le label deviendrait celle de la nouvelle semaine et ce, pour toute la semaine du 19 avril.

Merci pour vos solutions.

Salut Eric,

Voici une méthode artisanale comme à mon habitude...

Bien à toi,

Merci OncleBarney mais je recherche une méthode plus industrielle.

D'ailleurs, je semble y être parvenu.

Me.lbl_semaine.Caption = "Semaine du " & Format(Date - DatePart("w", Date, 2) + 1, "d mmmm yyyy")

Salut le forum

La date du Lundi

=AUJOURDHUI()-JOURSEM(AUJOURDHUI();3)

en VBA

=Date - Weekday(Date, 3)

Mytå