Discussion :

[casefayere]

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

[Guidhy]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

bonjour

une autre possibilité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

michel

[skorpio]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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