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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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