Import données internet vers csv ou xls - quid de larapidité?

[mtaurines]

Bonjour,

Quel est le moyen le plus rapide pour extraire des données internet dans un fichier csv (ou excel)?
Je trouve le QueryTables.Add assez long

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
  With ActiveSheet.QueryTables.Add(Connection:= _
    adr1, _
    Destination:=Range("$A$1"))
        .Name = "cours"
        .FieldNames = True
        .RowNumbers = True
        .FillAdjacentFormulas = True
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

Merci d'avance pour les infos?

Cdt