[WD-2003] Fonction Time en temps réel

[vbword]

Bonjour à tous.

J'ai besoin dans un userform Word d'avoir une zone de texte Label qui affiche l'heure système. Ca c'est bon j'ai le code à saisir :

Code :

1
2
3
4
5
6
Private Sub UserForm_Initialize()
'Renvoie l'heure système actuelle
lblHeure.Caption = Time
Dim MyTime
MyTime = Time
End Sub

Cette fonction permet d'afficher l'heure système au moment de l'ouverture de la macro.
Je souhaite savoir s'il éxiste un code qui fasse en sorte que l'heure défile, comme une horologe classique. Qu'il affiche l'heure système en continue.

Merci d'avance pour ceux qui vont se pencher sur mon besoin.

[pgz]

Bonjour.

Dans la module du formulaire, tu modifies ta procédure

Code :

1
2
3
4
5
Private Sub UserForm_Initialize()
'Renvoie l'heure système actuelle
Me.lblHeure.Caption = Time
Application.OnTime Now + TimeValue("00:00:01"), "subMaJHeure"
End Sub

Et dans un module standard, tu ajoutes

Code :

1
2
3
4
5
6
7
8
Sub subMaJHeure()
 
On Error Resume Next
    NomDuUserForm.lblHeure.Caption = Time
    If Err.Number = 0 Then Application.OnTime Now + TimeValue("00:00:01"), "subMaJHeure"
On Error GoTo 0
 
End Sub

L'affichage sera mis à l'heure toutes les secondes, tant que le formulaire est ouvert.

Cordialement,

PGZ

[vbword]

Pourquoi ça marche jamais quand je remet sur mes fichiers

[pgz]

Bonsoir.

As-tu pensé à mettre le vrai nom de ton formulaire à la place de "NomDuFormulaire"?
Il faut ouvrir le formulaire en non modal

Code :

NomDuFormulaire.Show vbModeless

Si ça ne marche toujours pas, faudra voir ton projet, même simplifié.

PGZ

[vbword]

Envoyé par pgz

Il faut ouvrir le formulaire en non modal

C'est ça qu'il manquait ...
Le seul dommage c'est qu'il ne faut pas avoir plusieurs UserForm sur le même projet avec besoin qu'ils puissent tous être ouvert en même temps, car plus rien ne fonctionne ... mais bon c'est pas grave ... grand merci

[Heureux-oli]

Salut,

Perso, je n'utiliserais pas ce genre de code.
Il va consommer de la ressource pour rien.

[pgz]

Bonjour.

Envoyé par Heureux-oli

Perso, je n'utiliserais pas ce genre de code.
Il va consommer de la ressource pour rien.

2 ou 3 instructions par seconde, ce n'est pas rédhibitoire, non?
Tu ferais comment?


Cordialement

[pgz]

Bonsoir

Envoyé par vbword

Le seul dommage c'est qu'il ne faut pas avoir plusieurs UserForm sur le même projet avec besoin qu'ils puissent tous être ouvert en même temps, car plus rien ne fonctionne ...

Je n'avais pas compris que tu voulais ouvrir plusieurs formulaires avec chacun une horloge.

OnTime ne peut enregistrer qu'une programmation à la fois.


Cordialement,

PGZ

[vbword]

Envoyé par Heureux-oli

Salut,

Perso, je n'utiliserais pas ce genre de code.
Il va consommer de la ressource pour rien.

Tu as mieux à proposer ?

Envoyé par pgz

Je n'avais pas compris que tu voulais ouvrir plusieurs formulaires avec chacun une horloge

Plus ou moins ... en fait j'ai 3 userform sur le même fichier Word, avec le besoin qu'ils puissent être tous éxecutés sans restriction d'utilisation (si 2 sont ouvert, cela n'empêche pas de les utiliser l'un ou l'autre) et le ShowModal doit être en False pour tout les userform, donc je ne peux pas avoir tout, c'est l'un ou l'autre.

[Heureux-oli]

Salut,

L'heure système est déjà affichée par Windows, c'est pas si mal.

[vbword]

Envoyé par Heureux-oli

Salut,

L'heure système est déjà affichée par Windows, c'est pas si mal.

c'est vrai, mais là de l'avoir qui défile c'est sympa aussi, mais c'est surtout que lors de l'enregistrement du document, il reprend l'heure affichée lors de l'ouverture de la macro ... et si l'enregistrement se fait mettons 10 minutes plus tard par exemple, la donnée est fausse ... c'était surtout pour ça

[Heureux-oli]

Envoyé par vbword

c'est vrai, mais là de l'avoir qui défile c'est sympa aussi, mais c'est surtout que lors de l'enregistrement du document, il reprend l'heure affichée lors de l'ouverture de la macro ... et si l'enregistrement se fait mettons 10 minutes plus tard par exemple, la donnée est fausse ... c'était surtout pour ça

Il reprend juste une valeur que tu as stockée à un endroit, il suffit lors de la sauvegarde de reprendre l'heure système.