Afficher une fenêtre avec un décompteur

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 ?

Salut,

je te propose ceci :

Code:

---

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++