Bonjour,
Voici mon problème, en utilisant cette macro je n'arrive pas a importer les tableaux de la page web :
http://www.le-paddock.fr/evolucote/cote-pmu/
Merci pour vos réponses
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
26
27
28
29 Sheets("feuil1").Select With Sheets("feuil1").QueryTables.Add(Connection:="URL;http://www.le-paddock.fr/evolucote/cote-pmu/", Destination:=Sheets("feuil1").Range("A1")) .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = True .PreserveFormatting = True .RefreshOnFileOpen = True .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = False .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = True .WebDisableDateRecognition = True .WebDisableRedirections = True .Refresh BackgroundQuery:=True End With End Sub
Partager