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

Eidolon · 16 Mars 2020

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 · 18 Mars 2020

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 · 18 Mars 2020

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

Eidolon · 18 Mars 2020

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

Eidolon · 18 Mars 2020

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

Staple1600 · 18 Mars 2020

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 · 18 Mars 2020

Staple1600 à dit:
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 · 18 Mars 2020

Re

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

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

Eidolon · 18 Mars 2020

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 · 19 Mars 2020

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 · 19 Mars 2020

Eidolon à dit:
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 · 19 Mars 2020

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 · 19 Mars 2020

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

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

Eidolon

XLDnaute Nouveau

Eidolon

XLDnaute Nouveau

laurent3372

XLDnaute Impliqué

Pièces jointes

Eidolon

XLDnaute Nouveau

Eidolon

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Eidolon

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Eidolon

XLDnaute Nouveau

laurent3372

XLDnaute Impliqué

laurent3372

XLDnaute Impliqué

Eidolon

XLDnaute Nouveau

laurent3372

XLDnaute Impliqué

Pièces jointes

Discussions similaires