Recherche Google dans TextBox d'un Userform

Résolu/Fermé
Le_Maniouk Messages postés 317 Date d'inscription lundi 25 mars 2013 Statut Membre Dernière intervention 20 septembre 2019 - 1 sept. 2016 à 14:36
Le_Maniouk Messages postés 317 Date d'inscription lundi 25 mars 2013 Statut Membre Dernière intervention 20 septembre 2019 - 1 sept. 2016 à 19:01
Bonjour,

Je cherche à effectuer une recherche Google grace à ma textbox de mon userform.

C'est à dire que si je tape à l'intérieur "Comment ça marche" que la page google s'ouvre avec les résultats de ma recherche.

Et si la recherche peu se faire dans mon navigateur par défaut, alors là ça serait TOP ! Oui car on va être plusieurs à utliser Excel mais on utilise pas tous le même navigateur ^^

Sinon j'utilise XL2016. Merci d'avance xD



A voir également:

1 réponse

Le_Maniouk Messages postés 317 Date d'inscription lundi 25 mars 2013 Statut Membre Dernière intervention 20 septembre 2019 158
1 sept. 2016 à 19:01
Bon au final j'ai trouvé. Donc pour ce qui cherche, j'ai créé mon TextBox1 dans mon UserForm. Ensuite j'ai créé mon un bouton de commande puis j'ai collé ça :

1 - Private Sub CommandButton1_Click()
2 - Dim mavar As String
3 - mavar = TextBox1
4 - ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:= _
5 - "https://www.google.fr/webhp?hl=fr&source=hp&gws_rd=ssl" & mavar & "&meta=&aq=f&oq="
6 - ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

Voilà ;)

Je suis avec Excel 2016
0