Application.Wait Now + TimeValue sous la seconde??

[tarvel]

J'ai une boucle qui permet de déclencher un click de page Web.
Comment faire pour avoir un Application.Wait Now + TimeValue('00:00:xx') en dessous d'1 seconde???
Merci de votre aide

 

[myDearFriend!]

Bonsoir tarvel,

Sauf erreur, la méthode Wait ne permet pas de passer en dessous d'une seconde.

Pour ce faire, sur PC *, tu peux peut-être utiliser la procédure suivante :

Sub Pause(Delai As Single)
Dim T As Single
      T = Timer
      Do
            If Timer < T Then Exit Do
      Loop While Timer < T + Delai
End Sub

Tu peux donc appeler cette procédure ainsi :

Pause 0.5

pour obtenir un délai d'une demie seconde.


* Attention, sous environnement Mac, tu ne pourras pas passer en dessous de la seconde avec la fonction Timer.

Cordialement,

 

[tarvel]

Je viens de tester...Ca a l'air de marcher!!!!
Merci pour la rapidité de la réponse!!!