Hallo, ich suche nach einem Code, damit beim Klicken auf meine Schaltfläche mein Link-.htm im Internet geöffnet wird. Aber ich kann es nicht finden.
Hallo
Versuchen Sie etwas wie:
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
Ersetzen Sie die Werte von prog und strArgument durch die Werte, die zu Ihnen passen, wobei prog der Pfad des Programms ist, mit dem Sie im Internet surfen möchten, und strArgument der Pfad der Datei, die Sie in Ihrem Browser öffnen möchten.
Herzliche Grüße
5 „Gefällt mir“
Danke d.roger es ist perfekt:)
@ D.Roger
Immer auf dem neuesten Stand für Makros, sind Sie eine wertvolle Hilfe.
Möge die Macht mit dir sein
3 „Gefällt mir“