Astuce VBA : importer des données d'un site Web
Pour apprendre à créer une macro pour importer des données à partir d'un site Web, un tutoriel vidéo a été créé.
La méthode consiste à importer le contenu de la page Web sur une feuille, puis à extraire les éléments souhaités.
Et voici une copie du code VBA de la vidéo :
Sub importer()
Sheets("TEMP").Cells.Clear
With Sheets("TEMP").QueryTables.Add(Connection:="URL;https://www.blog-excel.com" _
, Destination:=Sheets("TEMP").Range("$A$1"))
.Name = "exemple"
.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
compteur = 0
For ligne = 1 To 1000
If Left(Sheets("TEMP").Cells(ligne, 1), 6) = "Il y a" Then
compteur = compteur + 1
Sheets("ACCUEIL").Cells(compteur, 1) = Sheets("TEMP").Cells(ligne - 1, 1).Hyperlinks(1).Address
If compteur = 5 Then Exit For
End If
Next
End Sub
Une nouvelle méthode pour extraire des données d'un site Web en une seule ligne de code VBA est expliquée sur cette autre page.