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
Merci d'avance pour les infos?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Cdt
Partager