Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

E

Eidolon

XLDnaute Nouveau
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.
 
Trier par date Trier par votes

laurent3372

XLDnaute Impliqué
Supporter XLD
VB: 
Public Function GoogleURL(txt As String) As String
    Dim oXMLH As New MSXML2.XMLHTTP60
    Dim oDoc As New HTMLDocument
    
    Dim oResults As Object

    With oXMLH
        .Open "GET", "https://www.google.fr/search?q=" & txt, False
        .send
        oDoc.body.innerHTML = .responseText
    End With
    Set oResults = oDoc.getElementsByClassName("r")
    If oResults.Length = 0 Then
        GoogleURL = "#N/A"
    Else
        GoogleURL = oResults(0).FirstChild.href
    End If
End Function
J'avais oublié le cas où Google n'envoie aucun résultat
Autre erreur corrigée: je ne renvoyais pas l'URL mais un libellé généré par Google.
 

Pièces jointes

  • GoogleURL v1.1.xlsm
    23.2 KB · Affichages: 2
Vote positif 0 Vote négatif
E

Eidolon

XLDnaute Nouveau
Malheureusement je ne peux pas transmettre le classeur..
Sans aucune raison apparente, tout les sites viennent de m'afficher #VALEUR! , même ceux qui affichait un URL..
Avez vous une idée de solution ?
(j'ai environ 1800 cellules où je dois répeter l'opération)
 
Vote positif 0 Vote négatif
E

Eidolon

XLDnaute Nouveau
Je viens de tester, ça marche incroyablement bien pour une centaine de valeur, puis affiche le message " erreur d'execution -2147024891 (80070005) accès refusé" et propose de déboguer. En cliquant sur déboguer, voici ce qu'on obtient :
 

Pièces jointes

  • full.png
    140.2 KB · Affichages: 6
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

R
  • Question
XL 2016 rechercher une chaine de caractère
Réponses
4
Affichages
483
Phil69970
D
  • Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
371
crocrocro
C
A
  • Question
Microsoft 365 Recherche Valeur ET un (si ≥ X et Si ≤ Y)
Réponses
3
Affichages
299
ALS35
A
L
  • Question
Microsoft 365 Macro de recherche
2
Réponses
20
Affichages
1 K
Langrand
L
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
315
Usine à gaz
F
  • Question
XL 2021 Ouvrir lien hypertexte dans navigateur par défaut
Réponses
3
Affichages
426
Fab117
F
  • Question
Microsoft 365 RESOLU - Macro - Recherche de lignes identiques et ressortir les lignes uniques
Réponses
2
Affichages
238
Akortys
  • Question
Autres Ambiguïté entre NB.SI et EQUIV
Réponses
13
Affichages
487
herve62
A
  • Question
Google Sheets rang et doublon google sheet
Réponses
1
Affichages
612
Adrienelodie
A
  • Résolu(e)
XL 2021 Faire une copie de mon classeur quand "Target" change
2 3
Réponses
30
Affichages
2 K
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…