lien internet avec VBA EXCEL

Bonjour,

Cà fais un moment que je n'ai pas consulter ce site très utile et sympa et j'ai besoin d'un tuyau :

Comment intégrer un lien internet dans un bouton de commande excel avec VBA ?

Merci de vos réponses

Je pense que si tu fais un truc de ce style, ca devrait fonctionner....

Code:

---

1 2 3 4 5 6 7

Dim objIE As Object   Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "www.developpez.net" objIE.Visible = True End Sub

---

bonjour

une autre possibilité

Code:

---

ThisWorkbook.FollowHyperlink "http://www.developpez.com"

---

michel

tu peux également faire ça, au cas ou tu te demande si t'as la connexion avant de lancer ton code, sa peut être utile:salut:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Image1_Click() Select Case IsNetworkAlive(0) Case 0: MsgBox "not connected" Exit Sub Case 1: MsgBox "connected to LAN" Case 2: MsgBox "connected to WAN" Case Else: MsgBox "connected to other network" End Select ThisWorkbook.FollowHyperlink "http://www.wanao.com", , True End Sub

---