W
winnie
Guest
Bonjour à tous,
Je souhaite mettre en place une recherche automatique sur plusieurs moteurs de recherche à partir d'une cellule excel.
J'ai réussi à modéliser cela à moitié ce qui me donne ceci :
ca va peut-être paraitre un peu barbare mais étant débutant je n'ai pas réussi à faire mieux :
Code :
Sub moteur_recherche()
Dim mavar As String
mavar = [A7]
Shell ("cmd /c start http://www.google.com/search?q=" & Replace(mavar, " ", "+"))
Shell ("cmd /c start http://www.bing.com/search?q=" & Replace(mavar, " ", "+"))
Shell ("cmd /c start http://fr.search.yahoo.com/search;_ylt=A03uv8eHDGlMWwQB1AJjAQx.?p=" & Replace(mavar, " ", "+"))
Shell ("cmd /c exit")
End Sub
Voila ce que ça donne. Le résultat correspond à ce que j'attends le problème étant que je n'ai pas 3 fenêtres de mon navigateur qui s'ouvre mais 5.
J'aurais donc aimé savoir si qqn pouvais m'aider à résoudre ce problème. C'est à dire ne plus avoir 2 pages google, 2 pages bing et 1 page yahoo mais juste une page par moteur de recherche.
Merci par avance
Je souhaite mettre en place une recherche automatique sur plusieurs moteurs de recherche à partir d'une cellule excel.
J'ai réussi à modéliser cela à moitié ce qui me donne ceci :
ca va peut-être paraitre un peu barbare mais étant débutant je n'ai pas réussi à faire mieux :
Code :
Sub moteur_recherche()
Dim mavar As String
mavar = [A7]
Shell ("cmd /c start http://www.google.com/search?q=" & Replace(mavar, " ", "+"))
Shell ("cmd /c start http://www.bing.com/search?q=" & Replace(mavar, " ", "+"))
Shell ("cmd /c start http://fr.search.yahoo.com/search;_ylt=A03uv8eHDGlMWwQB1AJjAQx.?p=" & Replace(mavar, " ", "+"))
Shell ("cmd /c exit")
End Sub
Voila ce que ça donne. Le résultat correspond à ce que j'attends le problème étant que je n'ai pas 3 fenêtres de mon navigateur qui s'ouvre mais 5.
J'aurais donc aimé savoir si qqn pouvais m'aider à résoudre ce problème. C'est à dire ne plus avoir 2 pages google, 2 pages bing et 1 page yahoo mais juste une page par moteur de recherche.
Merci par avance