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