Ouverture internet via un bouton

Bonjour,

Je voudrai qu'en cliquant sur un bouton on ouvre Internet Explorer (la page de Google).

J'ai le code ci-après mais qui ne fonctionne pas :

Private Sub CommandButton1_Click()
TheWebSite Dim As String
theWebSite = "http://www.google.com"
Call Shell("explorer.exe " & theWebSite, vbNormalFocus) Appel Shell ("explorer.exe" & theWebSite, vbNormalFocus)
End Sub

Pouvez-vous m'aider dans ce problème ?

Merci beaucoup.

Bonjour

Pourquoi faire compliqué.....

Un simple lien Hypertexte dans une cellule fait la même chose

Cordialement

Bonjour,

Oui cette méthode est la plus facile mais mon bouton est dans un userform et je voudrai qu'en cliquant sur celui-ci la page de Google s'ouvre..

J'ai réussi à avoir le code suivant que j'ai mis dans un module. Mais je n'arrive pas en cliquant sur le bouton présent dans le Userform à faire ouvrir internet. Comment mettre dans le code de ce bouton faire appeler le module ?

eclare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Sub tst()
    ShellExecute vbNull, "open", "http://www.google.fr", vbNull, vbNull, SW_SHOWNORMAL
End Sub

Merci.

Bonjour,

Private Sub CommandButton1_Click()

tst

End Sub

En remplaçant CommandButton1 par le nom de ton bouton

Cordialement,

Bonjour et merci Zirak.

Je ne sais comment réagir par rapport à ta réponse qui est super simple, ce qui m'oblige à dire que certains problèmes peuvent être résolus par des réponses simples.

Merci beaucoup pour ta réponse et à bientôt peut être.

Henry.

Post clôturé.