Wait for a webpage to load before calling another. 1

[jmcg]

Been trying to set up a form that will call a webpage, wait for it to load and then call another page. The pages can take 10-15 mins to load.
From other posts I have tried

Set IE = Me.WebBrowser
IE.Navigate "[URL unfurl="true"]http://www.google.co.uk"[/URL]
While IE.Busy
'Do nothing
Wend
While IE.Document.ReadyState <> "Complete"
'Do nothing
Wend
IE.Navigate "[URL unfurl="true"]http://www.yahoo.co.uk"[/URL]
While IE.Busy
'Do nothing
Wend
While IE.Document.ReadyState <> "Complete"
'Do nothing
Wend

This seems to go on a perpetual loop as it runs for ages with nothing showing.

Any ideas where I am going wrong.

 

[PHV]

While IE.Document.ReadyState <> [!]4[/!]

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[jmcg]

Thanks PHV but that doesn't seem to make any difference.

Not sure if relevant but it is called when the Form opens.

 

[PHV]

What about this ?

On Error GoTo 0
Set IE = Me.WebBrowser
IE.Navigate "[URL unfurl="true"]http://www.google.co.uk"[/URL]
While IE.Busy
  DoEvents
Wend
While IE.ReadyState <> 4
  DoEvents
Wend
IE.Navigate "[URL unfurl="true"]http://www.yahoo.co.uk"[/URL]
While IE.Busy
  DoEvents
Wend
While IE.ReadyState <> 4
  DoEvents
Wend

BTW, I'd use the Load event instead of Open.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[jmcg]

Thanks for hanging in there on this.
Changed to the above code and to a Load Event and it did not work
However when I changed the 4 back to "Complete" it did work!

Private Sub Form_Load() 

On Error GoTo 0 
Set IE = Me.WebBrowser2 
IE.Navigate "[URL unfurl="true"]http://www.google.co.uk"[/URL] 
While IE.Busy 
    DoEvents 
Wend 
While IE.Document.ReadyState <> "Complete" 
    DoEvents 
Wend 
IE.Navigate "[URL unfurl="true"]http://www.yahoo.co.uk"[/URL] 
While IE.Busy 
    DoEvents 
Wend 
While IE.Document.ReadyState <> "Complete" 
    DoEvents 
Wend 
End Sub

Thanks again

 

[PHV]

Sorry, my code was for the InternetExplorer.Application object, not the WebBrowser control :~/

 

[jmcg]

It got me there anyway