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
A voir également:
- Faire une boucle sur des adresses url / importation via web
- Url - Guide
- Navigateur web - Guide
- Votre appareil ne dispose pas des correctifs de qualité et de sécurité importants - Guide
- Web office - Guide
- Le fichier pdf à télécharger est disponible avec le même nom sur le site de bell canada. mais vous ne le trouverez pas directement avec un moteur de recherche… quelle est l’url de ce fichier pdf sur le site web de bell canada ? - Forum Réseaux sociaux
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
