Heure et date mise a jour en continu sur un userform

[Carfab]

Bonjour,
je voudrais avoir sur un userform l'affichage d'une date et de l'heure qui se reactualise toutes les secondes. Car pour le moment j'arrive a affiché l'heure à l'ouverture du fichier mais comme celui ci doit reste ouvert en continu l'heure reste bloque sur l'heure de l'ouverture du fichier.
Merci d'avance

 

[BOISGONTIER]

Re : Heure et date mise a jour en continu sur un userform

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Evenementiel/OntimeHeureFormulaire.xls

Dim temps
Sub majHeure()
 UserForm1.Label1.Caption = Format(Now, "hh:mm:ss")
 temps = Now + TimeValue("00:00:1")
 Application.OnTime temps, "majHeure"
End Sub

Sub auto_close()
 On Error Resume Next
 Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub

Sub afficheform()
   UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
   majHeure
End Sub

Private Sub UserForm_Initialize()
  majHeure
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  auto_close
End Sub

JB
Formation Excel VBA JB