Problème numéro semaine

Cow18 · Décembre 2, 2024, 10:21

Private Sub CommandButton2_Click()
     Dim Wd As Worksheet, MaDate As Long
     Set Wd = Sheets("Feuil1")
     MaDate = CDate(Me.TextBox1)
     Wd.Range("B8") = MaDate
     Wd.Range("B10").Value = WorksheetFunction.IsoWeekNum(MaDate)
     DoEvents
     MsgBox " Date insérée !"
     Unload Me
End Sub