XL 2010 Textbox site web

[Mimi]

Bonjour à tous,
Juste un petit renseignement :
J'ai un textbox, à l'intérieur il y a une adresse site web (jamais la même) est-il possible avec un commandbutton en cliquant dessus d'accéder à ce site.
D'avance merci
Mimi

 

[Lone-wolf]

Bonsoir Mimi

Une commande toute simple

Dans un mosule standard

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub UserForm_Initialize()
Dim x&
With Feuil1
For x = 2 To Range("a65536").End(xlUp).Row
ComboBox1.AddItem .Range("a" & x)
Next x
End With
End Sub

Private Sub CommandButton1_Click()
Dim site$
site = ComboBox1.Text
ShellExecute 0, vbNullString, site, vbNullString, vbNullString, 0
End Sub

 

[Lone-wolf]

Re Mimi

Sinon comme ceci

'Activer la référence Microsoft Internet Controls
Private Sub CommandButton1_Click()
Dim IE As Object
Dim site$

On Error GoTo fin
Set IE = CreateObject("InternetExplorer.Application")
site = ComboBox1.Text

IE.Visible = True

IE.Navigate site

Do Until IE.ReadyState = 2
    DoEvents
Loop
IE.Quit
Set IE = Nothing
fin:
Exit Sub
End Sub

 

[Staple1600]

Bonjour à tous

Une autre solution (sans sortir l'artillerie lourde 😉)

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveWorkbook.FollowHyperlink Address:=Me.TextBox1, NewWindow:=True
Unload Me
End Sub

NB: Test OK sur Excel 2013, il faut double-cliquer sur le contenu de la textbox
PS: Il faudrait ajouter une gestion d'erreur si l'URL n'est pas valide.

EDITION: Je viens de voir qu'il faut cliquer sur un commandbutton dans ce cas, le code VBA serait:

Private Sub CommandButton1_Click()
Dim URL$: URL = TextBox1.Text
On Error GoTo Bad_URL
ActiveWorkbook.FollowHyperlink Address:=URL, NewWindow:=True
Exit Sub
Bad_URL:
MsgBox "Impossible d'accéder à : " & URL, vbCritical, "ERREUR"
End Sub

Pendant que mon thé infusait, j'en ai profité pour ajouter une petite gestion d'erreur (qui reste à peaufiner)

 

[Mimi]

Bonjour à tous,
Merci beaucoup pour votre aide les reponses que vous donnez sont toujours excellentes.
Encore merci

 

[Lone-wolf]

Bonjour Staple 🙂

Et moi, 2010 n'aime pas followhyperlinks. Il aime juste les Follo's 😉. Mais si elle à plusieurs liens mieux vaut un combo, plutôt que d'écrire à chaque fois un lien.

 

[Staple1600]

Bonjour à tous

Bonjour Staple 🙂

Et moi, 2010 n'aime pas followhyperlinks. Il aime juste les Follo's 😉. Mais si elle à plusieurs liens mieux vaut un combo, plutôt que d'écrire à chaque fois un lien.

Loup solitaire
Il suffit de faire en sorte de lui faire aimer les hyperlinks à ton Excel 2010 😉
https://support.microsoft.com/en-us/kb/925757

Sinon le titre du post est explicite: TextBox site web
Il n'est nullement question de combobox mais de TextBox, j'ai donc écrit du VBA relatif à un TextBox.

 

[DoubleZero]

Bonjour à toutes et à tous,

@ Staple1600 😀,

L'utilité de :

NewWindow:=True

m'échappe 🙁.

Sur mon poste, ton code fonctionne parfaitement sans cette mention.

Merci et à bientôt 🙂🙂

 

[Staple1600]

Bonjour 00

00
Alors, on n'a pas taquiné la touche F1, hein ?😉
Sinon tu aurais vu que ....
(ci-dessous extrait de l'aide VBA)
NewWindow | Facultatif | Variante
True pour afficher l’application cible dans une nouvelle fenêtre.
La valeur par défaut est False.

 

[DoubleZero]

Re-bonjour,

...Alors, on n'a pas taquiné la touche F1... Sinon tu aurais vu que ...

N😉n, je ne l'ai pas "taquinée" !

Le plus grave : je ne comprends pas davantage l'utilité de ladite mention... Sans doute parce qu'aucun message d'erreur ne s'affiche.

Merci et à bientôt 🙂🙂