Récupérer le nombre de résultat Google sur base de donnés

Hello, j'ai besoin d'un petit service sur Excel; je pense qu'il faut passer par une macro pour faire ça.

J'ai une colonne de 500 lignes avec des noms d'entreprise et j'aimerai pour chacune d'entre elles obtenir le nombre de résultat google sur une requête Google bien spécifique du type ("nom de l'entreprise" site:www.site.com).

En sachant que le site sur lequel je souhaite faire ma recherche sera le même à chaque fois (c'est un site de news spécialiste de mon secteur d'études).

Est-ce quelqu'un peut aider ?

Merci !!

Bonjour,

Sub google()
    Range("A1").CurrentRegion.Offset(1, 1).ClearContents
    DoEvents
    site = "www.societe.com"
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Url = "https://www.google.com/search?q=" & Cells(i, 1) & "+site%3A" & site
        With CreateObject("MSXML2.XMLHTTP")
            .Open "GET", Url, False
            .Send
            If .Status = 200 Then
                Cells(i, 2) = Split(Split(.responseText, "<div id=""resultStats"">")(1), "<nobr>")(0)
            End If
        End With
    Next
End Sub

Hello Steelson,

Merci pour ton aide.

Ça fonctionne bien avec tes 2 lignes; lorsque j'importe ma base de 5000 boites ça mouline... dans le vide haha.

J'ai rajouté une ligne "On error resume next" car j'avais une erreur lorsque mon résultat de recherche google était à 0.

Après coup j'ai réussi à partir sur une recherche de 30 lignes et ça a fonctionné.

Aussi quand j'essaye de repartir sur ton fichier propre, ça ne fonctionne pas toujours; je me demande si je n'ai pas atteint une limite de requête journalière autorisée par Google?

Je fais des tests et te redis. Merci en tout cas.