Finalement je copie le code correspondant
Code:
Private Sub CommandButton1_Click()
Dim MyDate, suite1, suite2, suite3, suite4
Sheets('Blunet').Select
MyDate = DTPicker1.Value
Range('C2').Value = MyDate
Range('I2').Value = DatePart('ww', MyDate)
UserForm2.Label2.Caption = DatePart('ww', MyDate)
'Tu pourras ensuite copier les données dans la feuille Autorisations
' Cells(UserForm9!ComboBox8.ListIndex + 5, 5).Value = UserForm9!ComboBox8.Value
' Cells(UserForm9!ComboBox8.ListIndex + 7, 6).Value = UserForm9!TextBox1.Value
End Sub
[b]J'ai utiliser un DTPiker référence :Microsoft Date and Time Picker: mscomct2.ocx