Import données internet vers csv ou xls

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

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