macro automatique ouverture userform

[chinel]

Bonjour tout le monde, je désire mettre une macro qui ouvre une Userform automatiquement lorsque j'ouvre mon fichier. (ceci pas trop compliqué)
Lorsque je remplis les textbox (par exemple) et j'enregistre, les données vont se mettre dans une feuille à la ligne de la date en cours. Merci !

 

[Dranreb]

Bonjour.
Par exemple :

Private Sub CommandButton1_Click()
Dim DL As Long
DL = CDate(TextBox1.Text) - ActiveSheet.[A6].Value
ActiveSheet.[B6].Offset(DL, 0) = "ok"
End Sub

 

[chinel]

Merci, mais la textbox1 la date doit se mettre automatiquement avec l'heure du pc. Merci encore très bon job !

 

[Dranreb]

Private Sub UserForm_Click()
TextBox1.Text = Date
End Sub

 

[job75]

Bonjour chinel, Bernard,

Vous êtes sûr que l'UserForm est nécessaire ?

Private Sub Workbook_Open()
Dim lig As Variant
lig = Application.Match(CDbl(Date), Columns(1), 0)
If IsNumeric(lig) Then If MsgBox(Date & " ok ?", 4) = 6 Then Cells(lig, 2) = "ok"
End Sub

A+

 

[chinel]

Merci à vous ! Job75 pas mal sans userform !!!!