Discussion :

[SteveOG]

Bonjour,

Je cherche une macro me permettant d'automatiser ma recherche d'infos sur des entreprises cibles.

J'ai un fichier excel avec une liste d'entreprises.
Pour chacune d'elles, je fais une recherche sur google, ça m'affiche sur la droite l'entreprise avec son adresse et numéro de téléphone.
Y a t-il un moyen via une macro ou autre de récupérer automatiquement ces deux infos dans mon fichier excel ?
Colonne 1 : entreprise
Colonne 2 : adresse
Colonne 3 : numéro

J'ai fait quelques recherches sur Google, et ai trouvé une macro qui se rapproche de ce dont j'ai besoin.
Ici la macro recherche le nom de l'entreprise en cellule A1, et inscrit en cellule A3 le lien vers le site. (et en A2 c'est un mix entre le nom de l'entreprise et le site trouvé)

Il faudrait adapter cette macro pour recevoir le numéro de téléphone et l'adresse mais je n'y connais rien...

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Dim url As String, lastRow As Long 
    Dim XMLHTTP As Object, html As Object, objResultDiv As Object, objH3 As Object, link As Object 
    Dim start_time As Date 
    Dim end_time As Date 
 
    lastRow = Range("A" & Rows.Count).End(xlUp).Row 
 
    Dim cookie As String 
    Dim result_cookie As String 
 
    start_time = Time 
    Debug.Print "start_time:" & start_time 
 
    For i = 1 To lastRow 
 
        url = "https://www.google.co.in/search?q=" & Cells(i, 1) & "&rnd=" & WorksheetFunction.RandBetween(1, 10000) 
 
        Set XMLHTTP = CreateObject("MSXML2.serverXMLHTTP" ) 
        XMLHTTP.Open "GET", url, False 
        XMLHTTP.setRequestHeader "Content-Type", "text/xml" 
        XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0" 
        XMLHTTP.send 
 
            Set html = CreateObject("htmlfile" ) 
        html.body.innerHTML = XMLHTTP.ResponseText 
        Set objResultDiv = html.getelementbyid("rso" ) 
        Set objH3 = objResultDiv.getelementsbytagname("H3" )(0) 
        Set link = objH3.getelementsbytagname("a" )(0) 
 
 
        str_text = Replace(link.innerHTML, "<EM>", "" ) 
        str_text = Replace(str_text, "</EM>", "" ) 
 
        Cells(i, 2) = str_text 
        Cells(i, 3) = link.href 
 
        DoEvents 
    Next 
 
    end_time = Time 
    Debug.Print "end_time:" & end_time 
 
    Debug.Print "done" & "Time taken : " & DateDiff("n", start_time, end_time) 
    MsgBox "done" & "Time taken : " & DateDiff("n", start_time, end_time)

Merci beaucoup !

[Marc-L]

Bonjour,

rappel :

Important : Éditorial - à lire avant de poster

Et conformément aux règles de ce forum, baliser le code via l'icône # …


Sinon pourquoi ne pas avoir demandé directement à l'auteur, là où a été trouvé le code ?!