Bonjour, je suis à la recherche d'un code pour que quand, je clique sur mon bouton il m'ouvre mon lien .htm sur internet. Mais je n'arrive pas à trouver.
Bonjour,
Essaye avec quelque chose du genre :
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
En remplaçant les valeurs de prog et strArgument par les valeurs qui te conviennent, prog étant le chemin du programme que tu veux utiliser pour naviguer sur internet et strArgument étant le chemin du fichier que tu veux ouvrir dans ton navigateur.
Cordialement,
5 « J'aime »
Merci d.roger c'est parfait :)
3 « J'aime »