Recherche

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

 

Statistiques

France 72,6% France
Canada 7,2% Canada
Belgique 4,0% Belgique

Total:

122

Pays
018327798
Aujourd'hui: 377
Hier: 171
Cette semaine: 377
Semaine dernière: 2.756
Ce mois: 3.516