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.

 

[laurent3372]

Bonsoir,

Voici un exemple:

 

[laurent3372]

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.

 

[laurent3372]

Encore une petite correction (EncodeURL du texte)

 

[Eidolon]

J'essaye ça de suite ! Merci

 

[Eidolon]

Encore une petite correction (EncodeURL du texte)

Encore une petite correction (EncodeURL du texte)

Hello , je viens de faire tourner la fonction, J'ai #VALEUR! d'afficher sur les 3/4 des cellules, savez-vous pourquoi ?

 

[laurent3372]

Envoyez moi le classeur. Je vais déboguer.

 

[Eidolon]

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)

 

[laurent3372]

Transmets moi une liste de valeurs pour lesquelles la macro renvoie #VALEUR!

 

[laurent3372]

Voici une nouvelle version plus pratique d'emploi:

• remplir la colonne A avec les noms
• cliquer sur le bouton "Mettre à jour les champs"

 

[Eidolon]

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 :

 

[Eidolon]

Voici une nouvelle version plus pratique d'emploi:

• remplir la colonne A avec les noms
• cliquer sur le bouton "Mettre à jour les champs"

En tout cas merci beaucoup, ça me simplifie énormément la vie.

 

[laurent3372]

Est-ce qu'il y a toujours l'erreur #VALEUR! ?

 

[Eidolon]

Est-ce qu'il y a toujours l'erreur #VALEUR! ?

Non !
Il s'arrête juste avec l'erreur plus haut, je réactualise en coupant collant et ça marche sinon.
Si vous avez une solution ce serait parfait, sinon je devrais pouvoir me débrouiller !

 

[laurent3372]

Ca doit être un mécanisme de protection de Google qui limite le nombre de requêtes effectuées à la volée. Je vais ajouter un temporisateur pour contourner le problème.