XL 2016 Extraction données web après connexion login/mdp

[letruite]

Bonjour à tous!

Objet de la demande:
Passionné de foot et de stats, je souhaite importer des données d'un site web sur lequel j'ai un compte pour traiter les différentes statistiques par le biais d'Excel.

Description du problème:
Je souhaiterais importer en "feuil1" d'un classeur Excel, la page web : "https://footystats.org/tomorrow/" mais seulement après m'être connecté avec login et mot de passe sur "https://footystats.org/login".
En effet la page "https://footystats.org/tomorrow/" apparaît avec plus de contenu si on est connecté avec login et mot de passe.

Avancement:
J'arrive à me connecter automatiquement, mais je ne parviens pas à copier la page internet que je souhaite (https://footystats.org/tomorrow/) après connexion, sur une feuille du classeur.
Ce que j'obtiens est la page par défaut et non la page pour les identifiés.

Code réalisé à ce jour:

Sub Macro2()
'
' Macro2
'
Sheets("Feuil1").Cells.Clear
Dim i As SHDocVw.InternetExplorer
Set i = New InternetExplorer

i.Visible = True
i.navigate ("https://footystats.org/login")
Do While i.readyState <> READYSTATE_COMPLETE
Loop

Dim idoc As MSHTML.HTMLDocument
Set idoc = i.document
idoc.all.UserName.Value = "tapeidentifiant"
idoc.all.Password.Value = "tapemotdepasse"

Dim ele As MSHTML.IHTMLElement

Dim eles As MSHTML.IHTMLElementCollection
Set eles = idoc.getElementsByTagName("button")

For Each ele In eles

If ele.ID = "register_submit" Then
ele.Click
Else
End If

Next ele

'lignes ci dessous ne marchent pas car me renvoient à la page par défaut hors connexion.

With Sheets("feuil1").QueryTables.Add(Connection:="URL; https://footystats.org/tomorrow/", Destination:=Sheets("feuil1").Range("A1"))
    .BackgroundQuery = True
      .WebSelectionType = xlEntirePage
      .WebFormatting = xlWebFormattingNone
      .Refresh BackgroundQuery:=False
    End With

End Sub

Le code html du bouton "tomorrow" est <a class="button" href="/tomorrow/">Tomorrow</a>

J'ai essayé d'intégrer la ligne suivante mais rien n'y fait...

Document.getElementsByTagName("a")(2).click

Pour information je suis sur Excel 2016.

Je vous remercie par avance pour votre aide.

 

[letruite]

Personne pour me donner un coup de main?

 

[Gardien de phare]

Bonjour,
Extrait de la charte du forum :
8 - Les demandes de développements relatives à des extractions de données sur des sites interdisant ces pratiques dans leurs conditions générales sont interdites.

Les GCU du site autorisent-elles ce type d'extraction ?

 

[letruite]

Bonjour,

Je viens de me tartiner les CGU en anglais (et en diagonale) et sauf erreur je ne vois pas de mention interdisant l'extraction de leurs données.
Je tiens également à signaler que l'extraction que je souhaite faire est strictement réservée pour un usage personnel et non lucratif.

 

[Hasco]

Bonjour,

Leurs données sont téléchargeable (avec abonnement) au format csv https://footystats.org/download-stats-csv
Ou accessible par API (mais non gratuite sauf 1 ligue) https://football-data-api.com

Ce qui veut dire que non, nous ne pouvons pas vous aider à pomper les données de leur site.

Bonne soirée

 

[letruite]

Je suis justement abonné et paye 10 euros par mois...
Enfin bon c'est pas grave je vais tenter de me débrouiller seul

 

[Hasco]

Re,

Alors puisque vous avez excel 2016 essayez avec Power-Query et l'api du site. https://football-data-api.com et voir ce que votre abonnement vous permet.

Bonne continuation

 

[letruite]

Re,

Le soucis c'est que je ne parviens pas à importer le contenu de la page après m'être connecté, qui diffère de la page standard sans s'être identifié.
J'obtiens la page par défaut accessible par tout le monde.
Sinon, je n'aurais pas fait de macro et aurais simplement utilisé le bouton Excel tout prêt pour importer des données d'une page web.

 

[letruite]

J'ai par ailleurs du mal à comprendre les interdictions sur les extractions de contenu web étant donné que excel le propose par défault et en toute légalité il me semble par le biais de leur logiciel via le bouton "importer données web"

Mais je sens venir l'analogie avec "ce n'est pas parce qu'une voiture te permet de rouler a 200km/h que tu as le droit de le faire".

Sauf que j'ai du mal a voir le préjudice que ça peut engendrer vis a vis du site en question...

 

[letruite]

Pour information, j'ai également lu le tutoriel très bien fait pour les débutants (comme moi) mais sans réussir à l'adapter à mon problème...

VBA : Internet Explorer

Interaction avec Internet Explorer via VBA Excel

qwazerty.developpez.com

 

[Gardien de phare]

Bonsoir,
Excel propose mais ce n'est pas pour cela que c'est légal ou illégal.
Il est, a priori, tout a fait légal d'utiliser les outils fournis pas Excel pour télécharger automatiquement des données de l'intranet de votre entreprise, tant que ces données restent en interne. De même, avant le développement de l'open data, certains jeux de données étaient légalement téléchargeables via des outils capables de le faire. L'open data fournit maintenant la possibilité de télécharger les jeux de données sans outil particulier, même si les différents types de licences définissent les utilisations possibles.
Par ailleurs, le droit de la propriété intellectuelle est très variable d'un pays à l'autre, et les USA ne sont pas un modèle sur ce point.
Pour faire un parallèle, Excel ne vous dira jamais que vous stockez des données qui ne peuvent être diffusées au terme de la loi sur le secret statistique, qui devrait être déclarée à la Cnil ou qui sont contraires au RGPD du fait de la durée de conservation que vous avez mise en place...

 

[Staple1600]

Bonsoir le fil

letruite
Pour résumer en une phrase
Tu fais ce que tu veux sur ton PC (légal pas légal, chelou pas chelou etc...), le principal étant que rien se soit publié (code VBA ou autre) sur le forum qui pose problème avec le point 8 de la charte, et plus généralement qui soit en contradiction avec ce qu'on peut ici lire

Conditions et règlement

Vous devez accepter ces conditions et règles avant d'utiliser le site.

www.excel-downloads.com

 

[letruite]

Ok je comprends, rien de public vis à vis de l'extraction de données.
Je reste alors disponible en mp

Bonne soirée à tous!