Bonjour,

Dans le cadre d'un projet personnel,
J'essaye d'importer des données du site https://www.premierleague.com sur une table excel.

Deux étapes me bloquent pour avancer.

I - extraction sur certaines pages et pas toutes.

Visiblement sur certaine pageweb mon code fonctionne :
- https://www.premierleague.com/stats/.../goals?se=210/

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
30
31
Sub importer()
 
    Sheets("Feuil1").Cells.Clear
 
    With Sheets("Feuil1").QueryTables.Add(Connection:="URL;https://www.premierleague.com/stats/top/players/goals?se=210/" _
        , Destination:=Sheets("Feuil1").Range("$A$1"))
        .Name = "www.blog-excel"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
 
    compteur = 0
 
End Sub

---------------------------------------------------------------------------------
En revanche, sur d'autres pages, cela ne fonctionne pas :

https://fantasy.premierleague.com/a/...s/total_points

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
30
31
Sub importer()
 
    Sheets("feuil1").Cells.Clear
 
    With Sheets("feuil1").QueryTables.Add(Connection:="URL;https://fantasy.premierleague.com/a/statistics/total_points" _
        , Destination:=Sheets("feuil1").Range("$A$1"))
        .Name = "www.blog-excel"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
 
    compteur = 0
 
End Sub

II - sélectionner les pages du tableau
Toujours sur la même pageweb (https://fantasy.premierleague.com/a/...s/total_points),
je souhaite extraire les données de tout le tableau.

Merci d'avance pour vos réponses,

Vbcoc