Discussion :

[jesmen]

Bonjour à toutes et à tous,

Je souhaite afficher dans mon service sur un écran une présentation avec la date et l'heure du jour, la date du dernier accident et le nombre de jours sans accident.
J'ai pensé à un affichage PPT qui se régénère automatiquement via un code VBA.
J'ai effectué ce travail sur un PPT en incérant une feuille de calcul excel dans le PPT via (insertion / tableau / feuille de calcul excel) et en utilisant les formules (aujourd'hui, maintenant et un code VBA pour l'horloge)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Dim MarcheArrêt As Boolean
 
Sub Horloge()
MarcheArrêt = (Not MarcheArrêt)
Do While MarcheArrêt = True
DoEvents
Range("A1") = Now
Loop
End Sub

Le problème, vous vous en doutez c'est que tout cela est figé et qu'il faut à chaque fois relancer le PPT pour que tout soit à jour.
J'aimerais pouvoir afficher ce PPT en plein écran et que la mise à jour soit automatique.

Si vous avez des autres idées pour cet affichage je suis preneur.

Je vous remercie pour votre aide.

Jess.

[Jean-Philippe André]

Salut,

2 approches me viennent en tete :
- les API

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal _
    lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
 
Dim lngTimerID As Long
Dim blnTimer As Boolean
 
Sub StartOnTime()
    If blnTimer Then
        lngTimerID = KillTimer(0, lngTimerID)
        If lngTimerID = 0 Then
            MsgBox "Error : Timer Not Stopped"
            Exit Sub
        End If
        blnTimer = False
 
    Else
        lngTimerID = SetTimer(0, 0, 5000, AddressOf HelloTimer)
        If lngTimerID = 0 Then
            MsgBox "Error : Timer Not Generated "
            Exit Sub
        End If
        blnTimer = True
 
    End If
End Sub
 
Sub KillOnTime()
    lngTimerID = KillTimer(0, lngTimerID)
    blnTimer = False
End Sub
 
Sub HelloTimer()
    MsgBox "Hello Timer : " & Now
End Sub

- le Application.OnTime d'Excel en sous main

[jesmen]

Bonjour Jean-Phillipe,

Je te remercie pour ta réponse mais je ne sais absolument pas comment utiliser ces informations, je pense qu'il s'agit d'une réponse de pro pour un pro mais malheureusement je ne suis qu'un pauvre néophyte.

J'essayerai malgré tout de déchiffrer.

Encore merci

Jess.