Bonjour à tous et toutes,
Le code que j'ai réalisé et qui est joint concerne des requêtes multiples qui vont toujours sur le même site.
Dans le code joint j'ai mis une boucle qui va de la ligne 25 à 35 pour tester. Dans le réel on ira de 2 à 2017 ! soit plus de 2000 importations !
Existe t il un aille pour que le code aille plus rapidement ?
Si vous aviez à modifier ce code, d'une manière générale, qu'améliorerez vous ?
Pour info,je suis novice et autodidacte en vba.
Merci pour vos avis éclairés.
Le code que j'ai réalisé et qui est joint concerne des requêtes multiples qui vont toujours sur le même site.
Dans le code joint j'ai mis une boucle qui va de la ligne 25 à 35 pour tester. Dans le réel on ira de 2 à 2017 ! soit plus de 2000 importations !
Existe t il un aille pour que le code aille plus rapidement ?
Si vous aviez à modifier ce code, d'une manière générale, qu'améliorerez vous ?
Pour info,je suis novice et autodidacte en vba.
Merci pour vos avis éclairés.
HTML:
Sub aafixtures50quimarche()
Dim DLig As Long, Lig As Long, Sht As Worksheet, sURL As String
Dim NLig As Long
Dim fURL As String
' Définir la feuille de données
Set Sht = Sheets("base")
' Récupérer la dernière ligne du tableau
DLig = Sht.Range("I" & Rows.Count).End(xlUp).Row
' Nettoyer la mémoire de l'ordi
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8"
' Boucler sur tout le tableau
For Lig = 25 To 35
' récupérer l'url de la ligne (results)
sURL = Sht.Range("I" & Lig)
' récupérer l'url de la ligne (fixtures)
fURL = Sht.Range("J" & Lig)
' Sur la feuille fixtures
'On se positionne sur le feuil results pour faire la requète...DES FIXTURES
Sheets("fixtures").Select
With Sheets("fixtures")
' Trouver la prochaine ligne vide
NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
' Insérer la requête web
End With
With ActiveSheet.QueryTables.Add(Connection:="URL;" & fURL, Destination _
:=Range("$A$1"))
.Name = "fixtures"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=True
End With
DoEvents
Next Lig
Application.DisplayAlerts = True
End Sub