Extraction d'une page internet dans excel
Bonjour,
Dans Visual Basic en utilisant le script suivant:
Sub partants()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.geny.com/partants-pmu/2009-12-17-cabourg-pmu-prix-des-peupliers_c266388", _
Destination:=Range("B1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub
... j'arrive à copier dans excel la page du site "geny.com" correspondant à la rubrique "chevaux".
Comment faire pour copier dans excel de la même façon les pages correspondant aux rubriques :
- Statistiques des jockeys
- Statistiques des entraîneurs
- Records
Lorsque je clic sur ces différents onglets, c'est toujours le même lien qui s'affiche alors que la page est différente.
Merci pour vos réponses.
Dans Visual Basic en utilisant le script suivant:
Sub partants()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.geny.com/partants-pmu/2009-12-17-cabourg-pmu-prix-des-peupliers_c266388", _
Destination:=Range("B1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub
... j'arrive à copier dans excel la page du site "geny.com" correspondant à la rubrique "chevaux".
Comment faire pour copier dans excel de la même façon les pages correspondant aux rubriques :
- Statistiques des jockeys
- Statistiques des entraîneurs
- Records
Lorsque je clic sur ces différents onglets, c'est toujours le même lien qui s'affiche alors que la page est différente.
Merci pour vos réponses.
Configuration: Windows XP Firefox 3.5.6
