Action qui ouvre le navigateur Web

Bonjour le Forum.

Action Manuelle:

Je copie un lien "Google Maps" manuellement dans une TextBox qui ce trouve dans une UserForm

Action que je souhaite automatique:

Je souhaiterez cliquer sur un bouton et ouvrir le lien copié, dans un navigateur Web

Merci.

Bonjour toutes et tous

ci-joint un aperçu

code de l'usf1: '

  • 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

crdlt,

André

Super

C'est exactement ce que je cherchais.

Merci

Rechercher des sujets similaires à "action qui ouvre navigateur web"