Macro solidworks - Htm-link openen

Macro
1

Hallo, ik ben op zoek naar een code zodat wanneer ik op mijn knop klik, mijn link .htm op internet wordt geopend. Maar ik kan het niet vinden.

2

Hallo

Probeer iets als:

Sub Main()
    On Error GoTo Error_CauseAnError

    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks

    Dim prog As String
    prog = "C:\Program Files\Mozilla Firefox\firefox.exe"

    Dim strArgument As String
    strArgument = "https://www.lynkoa.com/"
    
    Dim RetVal
    RetVal = Shell("""" & prog & """ """ & strArgument & """", vbNormalFocus)
    
Exit_CauseAnError:
    Exit Sub
Error_CauseAnError:
    MsgBox ("L'accès au programme " & prog & " est impossible.")
    
End Sub

Het vervangen van de waarden van prog en strArgument door de waarden die bij u passen, prog is het pad van het programma dat u wilt gebruiken om op internet te surfen en strArgument is het pad van het bestand dat u in uw browser wilt openen.

Vriendelijke groeten

5 likes
3

Dank u d.roger het is perfect:) 

4

@ D.Roger

Altijd aan de top voor macro's, je bent een kostbare hulp.

Moge de kracht met je zijn

3 likes