Verwijzing naar site

[robdgr]

Met een code, gekoppeld aan een knop, activeert de gebruiker een site. Deze code is:

Sub foto()
'

'
Application.ScreenUpdating = False
    Range("E6").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Range("J4").Select
Application.ScreenUpdating = True
End Sub

In E6 staat de hyperlink

http://www.rdg1314.nl/

Hoe kan ik deze link in bovenstaande code opnemen zodat de selectie van E6 overbodig is? Ik zie het niet en vond ook geen oplossing.

 

[Wigi]

ActiveWorkbook.FollowHyperlink ("http://www.rdg1314.nl")

Wigi

 

[Wigi]

Vorige oplossing gebruikt de als standaard ingestelde browser van de gebruiker. Firefox bij mij dus

Wil je IE hebben, doe dan iets als:

    Dim RC As Long
    RC = Shell("Explorer http://www.rdg1314.nl", 1)

Wigi

 

[robdgr]

Wim,

Dank voor je snelle antwoord, de eerste code werkt prima samen met Explorer. Bijgaand het bestand waarin ik hem heb gebruikt.

 

[Wigi]

Dank voor je snelle antwoord, de eerste code werkt prima samen met Explorer.

Dat werkt idd goed samen, en jij zal dan IE als standaard browser hebben, en niet FF bijvoorbeeld.

 

[robdgr]

Klopt, ik gebruik alleen IE