Microsoft 365 Recherche google et copie résultat (Macro ?)

[Eidolon]

Bonjour,

Je recherche à prendre le texte d'une cellule dans une rangée X , rechercher le texte sur google et copier l'URL du premier lien dans une case plus loin même rangée.

Ex en image : Prendre nom x et copier résultat dans url x
Puis répéter l'opération un nombre N de fois .

Merci de votre aide.

 

[Eidolon]

Je ne peux plus lancer actuellement, j'ai "erreur d’exécution 438,Propriété ou méthode non gérée par cet objet" et en cliquant sur déboguage il surligne : GoogleURL = oResults(0).FirstChild.href

 

[laurent3372]

Voici une nouvelle version qui gère mieux les erreurs.

 

[Eidolon]

Yes ! Il écrit Accès refusé vers la 60eme ligne, sur toute celles qui restent

 

[Eidolon]

A Présent, tout est écrit en acces refusé, je ne peux pas relancer

 

[Staple1600]

Bonsoir le fil

M'est avis que...
(ci-dessous extrait des CGU de G..gle)

N’utilisez pas nos Services de façon impropre. Ne tentez pas, par exemple, de produire des interférences avec nos Services ou d’y accéder en utilisant une méthode autre que l’interface et les instructions que nous mettons à votre disposition. Vous ne devez utiliser nos Services que dans le respect des lois en vigueur, y compris les lois et réglementations applicables concernant le contrôle des exportations et ré-exportations. Nous pouvons suspendre ou cesser la fourniture de nos Services si vous ne respectez pas les conditions ou règlements applicables, ou si nous examinons une suspicion d’utilisation impropre.

Mais sans doute, me trompe-je (may be) ?

 

[Eidolon]

Bonsoir le fil

M'est avis que...
(ci-dessous extrait des CGU de G..gle)

Mais sans doute, me trompe-je (may be) ?

Peut-être ! Mais j'ai encore accès aux services, cela paraît étrange. Pourquoi désactiver seulement temporairement ?

Et dans ce cas, pourquoi cela ne marche t'il pas à nouveau avec un vpn ?


EDIt : La dernière vers remarche avec un vpn

 

[Staple1600]

Re

j'en sais rien
Je ne faisais que supputer en ayant lu ceci

A Présent, tout est écrit en acces refusé, je ne peux pas relancer

 

[Eidolon]

C'est toujours plausible, je ne sais pas non plus

Mnt j'ai l'erreur d'execution et le Debog me surligne le send en jaune :
With oXMLH
.Open "GET", "https://www.google.fr/search?q=" & Application.EncodeURL(txt), False
.send
oDoc.body.innerHTML = .responseText
End With

 

[laurent3372]

C'est le mécanisme de protection de Google contre les robots (comme le mien) qu fait que tu as toutes ces erreurs. Attends quelques minutes avant de relancer.

 

[laurent3372]

C'est toujours plausible, je ne sais pas non plus

Mnt j'ai l'erreur d'execution et le Debog me surligne le send en jaune :
With oXMLH
.Open "GET", "https://www.google.fr/search?q=" & Application.EncodeURL(txt), False
.send
oDoc.body.innerHTML = .responseText
End With

Ce n'est pas la dernière version du fichier que je t'ai envoyé.

 

[Eidolon]

C'est vrai. J'alterne entre toutes les versions pour aller plus vite, j'ai quasiment fini. Merci beaucoup. L'ennui de la dernière version c'est qu'elle écrit tout en accès refusé, et que je devais attendre qu'elle atteigne la dernière ligne avant de recommencer.

 

[laurent3372]

Cette nouvelle version arrête la macro à la première erreur HTTP.