Y aurait-il une fonction VBA qui puisse me faire une pause de x secondes sans manger toute la CPU ?

Détails
Catégorie parente: Word
Catégorie : Gestion des macros
Affichages : 8300

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