excel cellule recherche via google

[betteggan]

Bonjour,

J'aimerais, via une macro sur excel, effectuer une recherche sur Google qui me permettrait d'ouvrir une page de recherche Google avec le contenu de la cellule active ET le mot "futbol24".

Merci d'avance.

 

[thebenoit59]

Re : excel cellule recherche via google

Bonjour betteggan.
Tu souhaites ouvrir la fenêtre, ou juste afficher le lien hypertexte ?

 

[betteggan]

Re : excel cellule recherche via google

Bonjour Benoit,

Tout d'abord j'espère que tu vas bien et que tu n'es pas concerné par l'actualité...

Je souhaiterais ouvrir la fenêtre

 

[betteggan]

Re : excel cellule recherche via google

voilà le code

Sub lien()
Dim mavar As String
mavar = ActiveCell & "" & "futbol24"
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.google.fr/search?hl=fr&source=hp&q=" & mavar & "&meta=&aq=f&oq="
ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub