Macro via excel pour recherche sur google [Résolu/Fermé]

Signaler
Messages postés
32
Date d'inscription
lundi 18 janvier 2010
Statut
Membre
Dernière intervention
12 mai 2011
-
Messages postés
1543
Date d'inscription
mardi 16 juin 2009
Statut
Membre
Dernière intervention
3 avril 2011
-
Bonjour,

J'aimerais via une macro sur excel , effectuer une recherche dans une cellule qui me permettrait d'ouvrir une page de recherche google avec le mot ou la phrase entrée dans la cellule.


Merci d'avance.

5 réponses

Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 608
Bonjour,
Cette procédure lance une recherche google à partir d'un mot entré en cellule A1. Tu peux l'adapter.
Sub lien()
Dim mavar As String
mavar = [A1]
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:= _
        "https://www.google.fr/webhp?hl=fr&gws_rd=ssl" & mavar & "&meta=&aq=f&oq="
ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
4
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
1543
Date d'inscription
mardi 16 juin 2009
Statut
Membre
Dernière intervention
3 avril 2011
362
sinon ya plus simple :)

sub searchgoogle(texte as string)
Shell ("cmd /c start https://www.google.com/webhp?gws_rd=ssl" & Replace(texte, " ", "+"))
Shell ("cmd /c exit")
end sub
Messages postés
344
Date d'inscription
lundi 5 novembre 2007
Statut
Membre
Dernière intervention
2 août 2014
14
je te conseil ce site la moi j'y vais tout le temps que je veux faire un peu de vba !

https://www.developpez.net/forums/f664/logiciels/microsoft-office/excel/macros-vba-excel/
Messages postés
344
Date d'inscription
lundi 5 novembre 2007
Statut
Membre
Dernière intervention
2 août 2014
14
c'est super pratique ça je vais le noter ! merci
Messages postés
32
Date d'inscription
lundi 18 janvier 2010
Statut
Membre
Dernière intervention
12 mai 2011

Merci à tout les deux ! Pijaku ton code marche très bien Merci :-))