2 boutons de commande (un pour fermer et l'autre pour ouvrir l'url)
1 textbox
Note: si rien dans textbox1 un message avec le focus sur cette textbox1
Option Explicit
Dim LeSite
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
LeSite = Me.TextBox1.Value
If Me.TextBox1.Value = "" Then
MsgBox "Saisir une Url"
Me.TextBox1.SetFocus
Else
ActiveWorkbook.FollowHyperlink Address:=LeSite
End If
End Sub