Discussion :

[ninon]

Bonjour à tous, et merci pour toutes vos précieuses contributions !

Pour mon problème actuel, je ne trouve pas de message, je cherche peut-être la lune ...

Je dois afficher sur ma page WORD (pas dans un Userform, mais bien sur la page principale) une horloge (digitale) qui afficherait en direct l'heure.

Le champ date que j'ai inséré ne se met à jour que sur F9

Est-ce-que cela a déjà été fait ? est-ce possible ?

D'avance, un grand merci !

[ninon]

apparemment, ce n'est pas possible puisque personne ne m'a répondu.

[Invité]

Bonjour,

Vous pouvez vous servir d'un champ QuickPart Heure ou Date. Sauf erreur (ou méconnaissance) de me part, votre soucis sera de l'actualiser.

Cette procédure permet de le faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Sub LancerLeTimer()
 
Dim PauseTime, Start, Finish, TotalTime
 
       With ActiveDocument
 
            Finish = Timer + 10  ' Définit l'heure de fin.
            PauseTime = 1        ' Définit la durée en secondes
            Start = Timer        ' Définit l'heure de début.
            Do While Timer < Finish
               .Fields(1).Update
            Loop
      End With
 
End Sub

Et vous pourriez lancer cette procédure à l'ouverture avec celle-ci dans le module ThisDocument

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Document_Open()
 
    LancerLeTimer
 
End Sub

Mais cela va être très pénalisant pour vous car tant que la boucle fonctionnera, vous ne pourrez rien faire d'autre.

La question est plutôt de savoir pourquoi vous avez ce besoin.

[clementmarcotte]

Bonjour,

Et désolé pour la collision Éric.

Oui c'est possible, du moins théoriquement.

1) Tu te trouves un contrôle ActiveX horloge à quelque part. Le premier de cette liste a un programme d'installation dans le zip du démo.
2) Ensuite, tu demandes la permission du Service de Dictature informatique pour installer ton contrôle et probablement modifier les paramètres de sécurité de tous les Word qui vont devoir vivre avec le contrôle.
3) Une fois que tu as eu la bénédiction du service de Dictature informatique et que ton contrôle est installé tu peux le mettre dans ton document.
4) Tu cliques sur Outils hérités dans l'onglet Développeur de ton Ruban


Puis sur Autres contrôles



Puis, tu espères qu'il se trouve dans la liste

[Invité]

Bravo Clément.

[ninon]

Merci à Éric et Clément de m'avoir répondu.

Je vais tester les deux solutions. Cependant, je dois pouvoir avoir la main pendant que l'horloge tourne ...

Sans doute la solution du controle ActiveX sera retenue.

Encore merci !

[Invité]

Bonjour,

Passez tout de suite à la solution de Clément...