Hyperlink in code werkt niet

[danny147]

Beste,

Bij volgende code werkt de Hyperlink niet
Dit omdat hij # vervangt door %20-%20
Kan dit verholpen worden

Het gaat om een interne link : http://wfsplprod.sidmar.be/ShiftPlanning.htmlClient/#/wu/14

Gebruik volgende code:

Sub Groepskalender(control As IRibbonControl)
ActiveWorkbook.FollowHyperlink ("http://wfsplprod.sidmar.be/ShiftPlanning.htmlClient/#/wu/14")
End Sub

 

[Timshel]

Deze dan?

Sub Danny()
    With CreateObject("InternetExplorer.Application")
        .Navigate "http://wfsplprod.sidmar.be/ShiftPlanning.htmlClient/#/wu/14"
        .Visible = True
    End With
End Sub

 

[danny147]

Beste Timshel,

Bedankt, weer eentje om bij te houden :thumb: