code vba permettant d'importer dans une feuille Excel

Version imprimable

21/02/2016, 16h07
bettegga

code vba permettant d'importer dans une feuille Excel

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 :)
21/02/2016, 17h47
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.

bonjour sinon tu a cela

Code:

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

;)

21/02/2016, 21h25
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 ! :)
21/02/2016, 23h54
patricktoulon

re

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

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

Amen!!!!!!!!;):mouarf:
24/02/2016, 14h47
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.
24/02/2016, 16h05
patricktoulon

Re

Re
Thierrytoulon connais pas !!!!!!!!!!!!!
24/02/2016, 16h34
bettegga

lol autant pour moi ! :)

je voulais dire "Patrick " :)