Gérer temps d'ouverture d'une page Web

Bonjour

Comment peut-on gérer le temps d'iouverture d'une page Web ?6
Un petit bout de code ...sera plus clair.

Comment sortir du Do après un laps de temps déterminé ??

 IE.navigate strURL

    Do Until IE.readyState = 4
        DoEvents
    Loop

Merci de vos réponses


Jacques

Bonjour,

Tu peux utiliser la fonction VBA Timer.

Voici un exemple de ce que ça peut donner :

    Dim Delai As Single
    Dim TimerFin As Single
    Dim TempsDepasse As Boolean
    Delai = 10 'en secondes
    IE.navigate strURL
    TimerFin = Timer() + Delai
    Do Until IE.readyState = 4 Or TempsDepasse = True
        DoEvents
        TempsDepasse = (Timer() >= TimerFin)
    Loop

Bonjour,

Je pensais qu'une propriété de l'application IE pouvait gérer le délai du readyState.
Cela convient parfaitement !

Merci

Jacques