Discussion :

[bettegga]

Bonjour à tous,

Je cherche un code vba permettant d'importer dans une feuille Excel le tableau de 50 lignes et 5 colonnes (je ne veux pas de la 6ème mais si c simplifie je la prend malgré tout) qui est à cette adresse.

http://www.futbol24.com/team/Italy/Juventus-FC/results/

Evidemment, j'ai une base de données concernant tous les clubs de tous les pays. Lorsque je fais une boucle pour chaque club, l'importation me renvoie non pas le tableau désiré, non pas la page dans son ensemble, mais l'adresse url que j'ai déjà !


Si vous avez une idée, je suis preneur, et vous remercie par avance.

J espère être au bon forum

[XLRATOR]

J'ignore quelle version d'Excel vous utilisez, mais ce que vous tentez de faire n'a pas trop besoin de réinventer la roue et d'en faire un code, il suffit de:

• Copier l'URL de votre page WEB Source, et allez dans l'onglet Données (Data)
• Dans le groupe Données Externe (Get External Data)
• Clickez le bouton "Page WEB"
• Dans la fenêtre de navigation qui s'ouvre collez l'adresse URL dans la barre d'adresse
• Une fois affichée vous trouverez sur l'angle supérieur gauche de votre tableau, une petite fléche qui vous permettra de le sélectionner.
• Clickez sur la fléche puis appuyez le bouton Importer (Import), en bas de la fenêtre.

Quant à la mise à jour ce sera sur un clique sur le bouton Actualiser (Refresh) du même onglet (Données).

Bien cordialement.

[patricktoulon]

bonjour sinon tu a cela

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
32
Sub prendtoutelespages()
    Dim ie As Object, url As String, texte As String, elem, matable As Object, i As Long
    url = "http://www.futbol24.com/team/Italy/Juventus-FC/results/#statTR-Page="
    Set ie = CreateObject("internetexplorer.application")
    ie.Visible = False
    Cells(1, 1) = "Analyse de la page " & 1
    ie.navigate url & 1
    Do: DoEvents: Loop Until ie.readystate = 4 Or ie.busy
    Do: Loop While ie.locationurl <> url & 1
    nbpage = Round(ie.document.GetElementById("number-total").innertext / 51)
    Set matable = ie.document.getelementsbytagname("table")(0)
    texte = texte & "<br>" & matable.outerhtml
    For i = 2 To Val(nbpage) + 1
        Cells(1, 1) = "Analyse de la page " & i
        ie.navigate url & i
        Do: DoEvents: Loop Until ie.readystate = 4 Or ie.busy
        Do: Loop While ie.locationurl <> url & i
        Set matable = ie.document.getelementsbytagname("table")(0)
        texte = texte & "<br>" & matable.outerhtml
    Next
    Set memo = CreateObject("htmlfile")
    With memo
        .body.innerhtml = texte
        For Each elem In .all
            If elem.tagname = "TD" Then elem.innerhtml = Replace(elem.innertext, "-", " à ")
        Next
        faire = .ParentWindow.clipboardData.SetData("text", .body.innerhtml)
        With Sheets(1): .Columns("A:G").ClearContents: .Columns("A:G").NumberFormat = "@": .Cells(Rows.Count, 1).End(xlUp).Select: .Paste: .Columns("A:G").AutoFit: End With
        faire = .ParentWindow.clipboardData.ClearData("text")
    End With
ie.Quit
End Sub

[bettegga]

un grand merci à vous deux


Patrick, tu es le Messi et je ne t'oublierai jamais.
Tu as répondu et anticiper d'autres questions que je n'avais pas posées, lol


Et cette question est résolue.

Merci énormément !

[patricktoulon]

Ah...!! ben voila autre chose
pour certain je suis le gourou et maintenant je suis le messi

pour d'autre équipe tu met le tout dans une fonction et tu injecte avec une autre sub l'url tronqué

Amen!!!!!!!!

[bettegga]

Bonjour à tous,

A partir du code de Thierrytoulon, je souhaiterais faire une boucle.


url = "http://www.futbol24.com/team/Italy/Juventus-FC/results/#statTR-Page="

Dans un onglet que j'ai nommé "basemondiale", dans la colonne J, de J2 à Jn, j'ai des hyperliens comme ceci

http://www.futbol24.com/team/Italy/A.../#statTR-Page=
http://www.futbol24.com/team/Italy/R.../#statTR-Page=
http://www.futbol24.com/team/Italy/L.../#statTR-Page=
http://www.futbol24.com/team/Italy/G.../#statTR-Page=
http://www.futbol24.com/team/Italy/A.../#statTR-Page=

Existe t il un moyen me permettant d'éviter de copier J2, de le coller dans la macro avant de la faire tourner ?

J ai tenté une boucle en mettant un for each cell dans la plage J2 à J1000, et en variabilisant l'url dans la macro : je coince !


Merci d'avance pour vos éclaircissements.