2 réponses
-------------------------------
Réponse au message :
-------------------------------
Je n'arrive pas a remonter la date du debut de semaine et la date de la fin de la semeine a partir d'une date au format AAAAWW(année semaine)
Je vous remercie de votre aide
-------------------------------
Pour insérer une date
Text1.text = Format$(Date, "DDMMMMYYYY")
D= day
M= month
Y= year
Réponse au message :
-------------------------------
Je n'arrive pas a remonter la date du debut de semaine et la date de la fin de la semeine a partir d'une date au format AAAAWW(année semaine)
Je vous remercie de votre aide
-------------------------------
Pour insérer une date
Text1.text = Format$(Date, "DDMMMMYYYY")
D= day
M= month
Y= year
Dim DateFinSemaine As String
Dim DateDebutSemaine As String
Dim strDate As String
Dim NumSemaine As String
Dim strperiode As String
str = DateAdd("d",-7,formatNow, "dd/mm/yyyy"))
DateDebutSemaine = Format(CDate(CDate(str) - Weekday(str, vbMonday) + 1), "dd/mm/yyyy", vbMonday)
DateFinSemaine = Format(CDate(CDate(str) - Weekday(str, vbMonday) + 7), "dd/mm/yyyy", vbMonday)
NumSemaine = Format(Format(CDate(str), "ww", vbMonday, vbTuesday), "0#")
strperiode = "Semaine n°" &
NumSemaine & " du " & DateDebutSemaine & " au " & DateFinSemaine
MsgBox "Nouvelle date: " & strperiode
Dim DateDebutSemaine As String
Dim strDate As String
Dim NumSemaine As String
Dim strperiode As String
str = DateAdd("d",-7,formatNow, "dd/mm/yyyy"))
DateDebutSemaine = Format(CDate(CDate(str) - Weekday(str, vbMonday) + 1), "dd/mm/yyyy", vbMonday)
DateFinSemaine = Format(CDate(CDate(str) - Weekday(str, vbMonday) + 7), "dd/mm/yyyy", vbMonday)
NumSemaine = Format(Format(CDate(str), "ww", vbMonday, vbTuesday), "0#")
strperiode = "Semaine n°" &
NumSemaine & " du " & DateDebutSemaine & " au " & DateFinSemaine
MsgBox "Nouvelle date: " & strperiode
