Discussion :

[thirdeye]

Talking effectué recherche google a partir d'une cellule
Bonjour,

Je souhaiterais automatisé une recherche google a partir de n'importe quelle cellule.

Je ne sais pas comment la modéliser. L'idéal serait de pouvoir la lancer par le biais (si c'est possible) par un raccourci clavier.

Pour l'instant j'ai modéliser de la sorte mais ma macro ne fonctionne pas mais elle a le mérite de vulgariser ce que je veux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub moteur_recherche()
Dim mavar As String
mavar = Range(ActiveCell)(l'erreur viens d'ici j'en suis sûr)
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "http://www.google.com/search?q=" & Replace(mavar, " ", "+")
 
End Sub

Merci à tous

[jojo86]

Salut, voici comment je ferais :

Colle ça dans un module et apel la procedure : RechercheGoogle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Sub listerFenetres_IE_Ouvertes()
'Necessite d'activer la référence "Microsoft Internet Controls"
Dim IE1 As InternetExplorer
Dim winShell As New ShellWindows
On Error Resume Next
For Each IE1 In winShell
    IE1.Quit 'option pour les fermer
Next IE1
End Sub
 
Sub RechercheGoogle()
Dim MaCellule As String
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
'On Error Resume Next
MaCellule = "Test ADSL" ' remplace "test adsl" par ThisWorkBook.ActiveSheet.Range("A1") Où A1 est la cellule recherchée...
Call listerFenetres_IE_Ouvertes 'ferme toute les fenetres internet avant la manip.
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://www.google.fr"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
IE.Visible = True
Set maPageHtml = IE.Document
Set Helem = maPageHtml.getElementsByTagName("input")
Dim HSel As IHTMLElementCollection
On Error Resume Next
Helem(2).innerText = "Test toto"
SendKeys "{TAB}", True
SendKeys "{ENTER}", True
End Sub

Voilà, dis moi ce que ça donne.

Cependant si ta macro est lancée depuis ta feuille, tu peux passer ta variable à la procedure recherchegoogle...

Il suffit de modifier la déclaration de ta procedure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub RechercheGoogle(Variable As String)
'Ensuite modifier cette ligne :
Helem(2).innerText = "Test toto"
'Change la de cette manière :
Helem(2).innerText = Variable

Ensuite si tu appel ton code avec un bouton sur une feuille tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Sub Bouton()
Call TONMODULE.RechercheGoogle(CStr(Range("A1"))) ' où A1 est la cellule contenant le mot ou expression à rechercher.

[thirdeye]

merci de ta réponse jojo.

Alors voila j'ai crée un module comme tu me l'as dis. J'ai donc copié ce que tu as fait et ai suivi la procédure.

Voici ce qui m'est dit (cf piece jointe)

ai-je fais une erreur de manipulation?

[jojo86]

Vérifie que ta référence est bien cochée :

Ouvre l'éditeur de macro VBA (Alt + F11)
Menu :

Outils => Références.

Coche la référence : Microsoft Internet Controls

Tien un fichier qui utilise une cellule. (comme je t'ais expliqué ci-dessus.)

[thirdeye]

ok merci..j'ai testé en effet ca marche nockel. merci

[AlainTech]

Si. Il faut ouvrir un nouveau sujet et marquer celui-ci !

[thirdeye]

par contre j'aurais une derniere question à poser mais je c pas si je dois rouvrir un autre sujet.

Ca concerne les boutons de macro qui ne se redimensionne pas avec mes cellule lorsque je reduis et rouvre mes arborescence sous excel.


voici mon problème en piece jointe :