Recherche automatique d'informations sur Google
Bonjour !
A l'aide de la vidéo sur cette page : https://www.blog-excel.com/importer-des-donnees-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;
" & 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
Merci beaucoup
SOG