BLACKHAYES
XLDnaute Impliqué
re-bonjour le forum,
comment faire pour afficher la date et l'heure dans une txtbx dans usf
comment faire pour afficher la date et l'heure dans une txtbx dans usf
Me.TextBoxDate.Text = Date
Dim temps
Sub MajHeure()
'Rafraîchit l'heure sur l'UF chaque seconde
UserForm1.TextBoxHeure.Text = Format(Now, "hh:mm:ss")
temps = Now + TimeValue("00:00:01")
Application.OnTime temps, "MajHeure"
End Sub
Sub AutoCloseHeure()
'Schedule:=False stoppe la maj
On Error Resume Next
Application.OnTime temps, Procedure:="MajHeure", Schedule:=False
On Error GoTo 0
End Sub
pour joindre le fichier ce n'est pas possible car tropvolumineux et deja saisi de données confidentielles
sans code !et voila mon fichier test est la,
TextBox1 = Format(Date, "d mmmm yyyy")