Discussion :

[Linaet]

Bonjour,

Comme le titre du sujet l'indique, est-il possible de programmer l'ouverture d'une MsgBox à intervalles réguliers (Par exemple, toutes les 15 minutes pour vérifier que mon script s'exécute bien et vérifier son avancée) ?

Si ce n'est pas possible est-il possible d'écrire dans la console Windows avec VBScript ?

Merci d'avance !

[ProgElecT]

Salut

Le principe

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
Dim FinTempo
Dim ExitDo, ReponsE
 
ExitDo = False
 
'FinTempo = DateAdd("n", 15, Now) 'ajout de 15mn à la date courante
FinTempo = DateAdd("s", 5, Now) 'ajout de 5sc à la date courante
 
Do
    If Now >= FinTempo Then
        ReponsE = MsgBox("Coucou, on continue ?", vbYesNo, "Tempo")
        If ReponsE = vbYes Then ' Oui
                'pour la prochaine tempo
                FinTempo = DateAdd("s", 5, Now)
                Else
                Exit Do
        End If
    End If
Loop

[Linaet]

Super, j'ai associé ça à une MsgBox qui se ferme automatiquement au bout de 10 secondes.

Merci beaucoup !