Discussion :

[Petit_jean]

Bonjour à tous,

Afin de compléter ma formation VBA et de compléter un projet perso, je cherche à importer des datas depuis un site internet, vers un fichier excel.

Sur la page web suivante:



J'arrive bien à extraire le tableau de l'onglet ouvert de base ("chevaux": des chevaux partants via le code):

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
 
Sub Import()
    With ActiveSheet
        With .QueryTables.Add(Connection:="URL;" & "http://www.geny.com/partants-pmu/", Destination:=.Cells(1, 1))
            .Name = "mDFquery"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = False
            .RefreshOnFileOpen = False
            .BackgroundQuery = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingRTF
            .WebTables = "tableau_partants"
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = False
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
    End With
End Sub

Mais je n'arrive pas à extraire le tableau des autres onglets ("statistique des drivers", "statistique des entraîneurs", "Records") car lorsque l'on va sur ces onglets, cela ne change pas le lien de la page et la procédure que j'ai écrite me permet uniquement d'extraire les tableaux présents initialement sur la page.

Pouvez vous m'aider ?

Merci d'avance.
Jean jean