Discussion :

[TGV6773]

Bonjour,

j'ai cherché mais en vain, je souhaiterais dans un script afficher une fenêtre avec dedans un décompteur (60-59-58-57-56 ... 4-3-2-1-0) et qu'à 0, la fenêtre disparaisse.

Après, s'il y a un bouton OK pour continuer et Annuler pour Annuler, ce serait top

Pouvez-vous m'aider ?

[RadPAT]

Salut,

je te propose ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Set objShell = WScript.CreateObject("WScript.Shell")
i = 30
Do Until i = 0
   Btn = objShell.Popup("Décompteur" & vbNewLine & vbNewLine & I & vbNewLine, 5, i, 0+48+4096)
   If Btn = 1 Then
      Exit Do
   End If   
   i = i -1
   WScript.Sleep 0
Loop

Si tu cliques sur OK le script s'arrete.

A++