Discussion :

[Invité]

Question : Comment programmer une pause dans le code autrement (sans conversion de "ms" en "s") ?
Réponse : En utilisant la fonction

Code :

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

DateAdd(interval,number,date)

Code :

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

1
2
3
4
5
6
7
8
9
10
MsgBox "Appuyer sur OK pour lancer la pause"
Sleep(2) ' durée en seconde 2 => 2 s
MsgBox "2 secondes Plus tard"
 
 
Sub sleep(strSecondes) 
           Dim secondes : secondes = DateAdd("s", strSecondes, Now()) 
           Do Until (Now() > secondes) 
           Loop 
End Sub