Code pour afficher date et heure en temps réel?

[Provence Vintage]

Bonjour le forum,

Je cherche le code pour insérer date et heure en permanence dans un textbox!?
Merci

 

[tototiti2008]

Re : Code pour afficher date et heure en temps réel?

Bonjour Provence Vintage,

avec les secondes ? et mise à jour toutes les secondes ?

 

[Provence Vintage]

Re : Code pour afficher date et heure en temps réel?

et voui!
barjo, non?

 

[tototiti2008]

Re : Code pour afficher date et heure en temps réel?

Re,

Et tout ceci en laissant la main à l'utilisateur entre chaque mise à jour, je suppose...

 

[Provence Vintage]

Re : Code pour afficher date et heure en temps réel?

Non, là non!!!!

 

[tototiti2008]

Re : Code pour afficher date et heure en temps réel?

Re,

un essai :

 

[Provence Vintage]

Re : Code pour afficher date et heure en temps réel?

c génial!!!!
un grand merci!

 

[Provence Vintage]

Re : Code pour afficher date et heure en temps réel?

tototiti2008, le forum,

j'ai un soucis avec le code, je ne peux plus aller sur mes USF et consulter les codes!!!!???
Merci à vous tous!

 

[Pierrot93]

Re : Code pour afficher date et heure en temps réel?

Bonjour,

A tout hasard, as tu bien placé dans ton code la fonction "DoEvents"... Sans voir le code utilisé, cela va être difficile de taider...

bon après midi
@+

 

[Provence Vintage]

Re : Code pour afficher date et heure en temps réel?

Re tous,

Pour fermer, j'avais cette commande, mais hormis la voix, rien ne se passe!!!?


Private Sub CommandButton13_Click()

Dim Sp As Object
On Error Resume Next
Set Sp = CreateObject("Sapi.SpVoice")
If Sp Is Nothing Then Exit Sub
Sp.Speak "are you sure, so, have a good fun"
FinMAJHeure
End Sub

 

[Pierrot93]

Re : Code pour afficher date et heure en temps réel?

Re

As tu exécuté cette commande pas à pas ?

Set Sp = CreateObject("Sapi.SpVoice")
If Sp Is Nothing Then Exit Sub

si tu sors de la procédure avant la ligne ci-dessous, normal ce qui t'arrive...

FinMAJHeure

@+

 

[Provence Vintage]

Re : Code pour afficher date et heure en temps réel?

Pierrot93, le Fil,

j'ai recalé dans le code, mais excel ne ferme toujours pas;
à l'origine cette commande etait dans woorbook,
je ne sais en créant un bouton exit comment appeler "FinMAJHeure" ET Workbook_Close!
Private Sub CommandButton13_Click()

Dim Sp As Object
On Error Resume Next
FinMAJHeure
Set Sp = CreateObject("Sapi.SpVoice")
If Sp Is Nothing Then Exit Sub
Sp.Speak "are you sure, so, have a good fun"


End Sub

 

[Pierrot93]

Re : Code pour afficher date et heure en temps réel?

Re

mets plutôt le "On Error Resume Next" comme ceci :

FinMAJHeure
On Error Resume Next

et vérifie que la procédure "FinMAJHeure" s'exécute bien... et qu'elle ait les même arguments que ceux donnés par toto...


@+

 

[Provence Vintage]

Re : Code pour afficher date et heure en temps réel?

re, oui, les mêmes...
mais excell ne ferme pas?!

 

[Pierrot93]

Re : Code pour afficher date et heure en temps réel?

Re

comprends pas trop, chez moi sous excel 2003 pas de problème avec le code de toto...