Faire une boucle sur des adresses url / importation via web
pierredali
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
pierredali Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
pierredali Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Faire une boucle sur des adresses url / importation via web
- Url - Guide
- Web office - Guide
- Votre appareil ne dispose pas des correctifs de qualité et de sécurité importants - Guide
- Création site web - Guide
- Faire une capture d'écran d'une page web entière - Guide
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
