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

Personne ?

Rechercher des sujets similaires à "recherche automatique informations google"