date et textbox

[florent]

bonjour à tous,

je souhaiterai encore un peu d'aide de quelqu'un, j'aimerai faire apparaitre dans une textbox la date du jour et dans une autre le numéro de la semaine

merci d'avance


florent

 

[michel]

bonsoir Florent

tu peux essayer

Private Sub UserForm_Initialize()
Dim Sem As Byte
TextBox1 = Format(Date, "dd mmmm yyyy")
Sem = Format(Date, "WW", , vbFirstJan1)
TextBox2 = "Semaine " & Format(Sem, "00")
End Sub

bonne soirée
michel

 

[florent]

bonjour michel, bonjour le forum

merci pour la solution, cela fonctionne nickel

salut

florent