Mettre un lien

Catégorie : Userform

Publié par veriland le 03-Aug-2013 23:20

D'abord il faut créer un Userform...ensuite pour cet exemple il vous faut à la base un "Label" ou un bouton...

 

 

Option Explicit
'Ti Thierry Pourtier 07-06-03 11:00

Private Sub LabelLien_Click()
Dim Lien As String
    Lien = "http://perso.wanadoo.fr/veriland/excel/sommaire.htm"
    On Error GoTo PasConnect
        ActiveWorkbook.FollowHyperlink Address:=Lien, NewWindow:=True
        Unload Me
    Exit Sub
PasConnect:
    MsgBox "Impossible d'ouvrir " & Lien
End Sub