Insertion image dans userform en fonction valeur textbox

Bonjour

J'ai sur un userform une textbox auquel je rentre un nom d'acteur ex: Jonh Wayne a l'aide d'un bouton qui se trouve sur mon userform j'aimerai me rendre sur Google image a la page ou se trouve "Jonh Wayne"

J'ai mis comme code ceci:

Private Sub CommandButton12_Click()
Dim a
a = Shell("C:\Program Files\Internet Explorer\iexplore.exe " & TextBox1.Text, vbNormalFocus)

End Sub

mon problème est que je n'arrive pas sur la bonne page?

Je vous remercie d'avance

Cordialement

Max

100classeur12.xlsm (217.80 Ko)

Bonsoir,

ton url ne semble pas la bonne ... essai :

   Dim urlBase As String

   urlBase = "https://www.google.fr/search?hl=fr&site=imghp&tbm=isch&q=" & Replace(TextBox1.Text, " ", "+")

   Dim a
a = Shell("C:\Program Files\Internet Explorer\iexplore.exe " & urlBase, vbNormalFocus)

Bonjour Pierrejy

Je te remercie beaucoup sa fonctionne nickel Si je peut me permettre et-il possible que lorsque j'ai choisie une image je peut en cliquant dessus la renvoyer sur mon Usf ou peut être d'une autre façon pour pouvoir l'avoir sur mon Usf

Mercie beaucoup et bonne soirée

max

Rechercher des sujets similaires à "insertion image userform fonction valeur textbox"