code eerst checken of website al open is

[bjornesto]

beste

Hieronder heb ik een code die werkt
- Hij opent internet explorer

Telkens opent hij een nieuw venster en zou graag hebben dat hij eerst kijkt of het venster al open staat.

Sub Akari_key_lend_out()
'gaat naar de website van key lend out op akari
On Error GoTo earlyexit
Unload Keys_akari
'opent het menu in akari om aan te passen waar nodig
Dim myrange As Range
Dim IE As Object
Set IE = CreateObject("Internetexplorer.application")

IE.Navigate "www.microsoft.com"
IE.Visible = True

While IE.busy
DoEvents
Wend
earlyexit:
End Sub

 

[Ginger]

Bekijk deze pagina eens... http://www.experts-exchange.com/questions/28311870/vba-See-if-a-web-page-is-already-open.html

 

[alphamax]

Dim IE As Object
    On Error Resume Next
    Set IE = GetObject(, "Internetexplorer.application")
    If Err.Number = 429 Then
        Err.Clear
        Set IE = CreateObject("Internetexplorer.application")
    End If
    On Error GoTo 0