Afficher numéro semaine de l'année selon la date

[fulkanga]

Bonjour la communauté,
Je suis un débutant de VBA Excel, je souhaite afficher dans un textbox le numero de la semaine selon la date d'un autre textbox. J'ai vu dans l'aide de vba que le format est (ee) mais ça ne marche pas quand je fais.
Je joint le fichier

 

[kjin]

Re : Afficher numéro semaine de l'année selon la date

Bonsoir,
Ce serait trop facile...

Private Sub UserForm_Initialize()
TxtDate = Format(VBA.Date, "dd/mm/yyyy")
TxtMonth = Format(VBA.Date, "mmmm")
TxtWeek = NoSem(VBA.Date)
End Sub

Private Function NoSem(D As Date) As Long
NoSem = VBA.DateSerial(VBA.Year(D + (8 - VBA.Weekday(D)) Mod 7 - 3), 1, 1)
NoSem = ((D - NoSem - 3 + (VBA.Weekday(NoSem) + 1) Mod 7)) \ 7 + 1
End Function

A+
kjin

 

[CBernardT]

Re : Afficher numéro semaine de l'année selon la date

Bonsoir fulkanga et le forum,

Bienvenue sur le forum.

Salut Kjin,


Une solution dans le classeur joint.

 

[fulkanga]

Re : Afficher numéro semaine de l'année selon la date

Bonjour le Forum,
Merci, Grand merci, les deux précédents intervenants ont répondu à mes attentes.
Je vous remercie infiniment et je sais que je peux compter sur vous pour la suite
de ma formation en vba,
Ciao,
Ful KANGA