On peut utiliser l'API Win32 :
- déclarer la fonction au niveau module
Declare Function GetTickCount Lib "kernel32" () As Long
mettre en oeuvre une fonction du genre
Public Sub Pause(Duree As Long) ’ duree en secondes
Dim Butee As Long, InstantZero As Long
InstantZero = GetTickCount / 1000
Butee = 0
While Butee < Duree
Butee = GetTickCount / 1000 - InstantZero
Wend
End Sub
Naturellement Word est bloqué pendant ce temps !!!