Recherche automatique d'informations sur Google

Y compris Power BI, Power Query et toute autre question en lien avec Excel
S
SOG
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 17 janvier 2017
Version d'Excel : 2013 FR

Message par SOG » 17 janvier 2017, 15:49

Bonjour !

A l'aide de la vidéo sur cette page : http://www.blog-excel.com/importer-des- ... -site-web/, j'ai un petit code VBA qui me sert à rechercher automatiquement sur Google le contenu de la cellule A2 (des noms d'entreprises), copier les résultats dans une feuille "TEMP", récupérer le numéro de téléphone, l'adresse et le site web et les coller respectivement dans B2, C2 et D2.
Et ensuite passer à A3, A4 ...

Voici le code :

Sub importer()

Dim url As String, lastRow As Long


lastRow = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To lastRow

url = "URL;https://www.google.fr/search?q=" & Cells(i, 1)


Sheets("TEMP").Cells.Clear

With Sheets("TEMP").QueryTables.Add(Connection:=url _
, Destination:=Sheets("TEMP").Range("$A$1"))
.Name = "www.google.fr"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With


For ligne = 1 To 1000

If Left(Sheets("TEMP").Cells(ligne, 1), 11) = "Téléphone :" Then
Sheets("ACCUEIL").Cells(i, 2) = Mid(Sheets("TEMP").Cells(ligne, 1).Text, 13)
End If

If Left(Sheets("TEMP").Cells(ligne, 1), 9) = "Adresse :" Then
Sheets("ACCUEIL").Cells(i, 3) = Mid(Sheets("TEMP").Cells(ligne, 1).Text, 11)
End If

If Left(Sheets("TEMP").Cells(ligne, 1), 9) = "Site Web:" Then
Sheets("ACCUEIL").Cells(i, 4) = Mid(Sheets("TEMP").Cells(ligne, 1).Text, 11)
End If

Next
Next

End Sub


Tout fonctionne bien, mais au bout d'un moment ça s'arrête et une pop-up m'affiche :

Erreur d'exécution '1004' :
La requête n'est pas valide pour ce serveur

Et le débogage me surligne la ligne :
.Refresh BackgroundQuery:=False



Donc voilà si quelqu'un sait où ça ne va pas...


Pour info je n'y connais rien en programmation, j'ai juste récupéré le code du fichier disponible sur le lien communiqué au début de ce message... Donc soyez sympa, utilisez des mots simples :mrgreen:

Merci beaucoup

SOG
S
SOG
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 17 janvier 2017
Version d'Excel : 2013 FR

Message par SOG » 27 janvier 2017, 10:21

Personne ? :(
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message