Faire une boucle sur des adresses url / importation via web
pierredali
Messages postés
2
Statut
Membre
-
pierredali Messages postés 2 Statut Membre -
pierredali Messages postés 2 Statut Membre -
Bonjour,
Je viens vers vous car je coince sur la modification d'un code.
Je cherche à faire des importations de données sur un site de football en important des tableaux.
Dans un onglet appelé "base", dans la colonne I, j'ai tout une liste d'adresse url.
Comment faire pour importer une à une les données de chacune des pages. (j'en ai plus de 200 ! )
Merci de vos éclaircissements
Je viens vers vous car je coince sur la modification d'un code.
Je cherche à faire des importations de données sur un site de football en important des tableaux.
Dans un onglet appelé "base", dans la colonne I, j'ai tout une liste d'adresse url.
Comment faire pour importer une à une les données de chacune des pages. (j'en ai plus de 200 ! )
Merci de vos éclaircissements
1 réponse
-
Je vous joins le code en question (pour les trois premières adresses url seulement)
Sub Macro2()
Dim DLig As Long, Lig As Long, sht As Worksheet, sURL As String
Dim NLig As Long
' Définir la feuille de données
Set sht = Sheets("base")
' Récupérer la dernière ligne du tableau de données
DLig = sht.Range("J" & Rows.Count).End(xlUp).Row
' Boucler sur tout le tableau
For Lig = 1 To 3
' récupérer l'url de la ligne
sURL = sht.Range("I" & Lig)
' Sur la feuille 2
With Sheets("Feuil2")
' TRouver la prochaine ligne vide
NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
' Insérer la requête web
With .QueryTables.Add(Connection:="URL;" & sURL, Destination:=.Range("$A$" & NLig))
.Name = False
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = "11"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End With
Next Lig
End Sub
