Discussion :

[Daniel.C]

Bonjour,

Je galère comme je peux pour récupérer des tables HTML, et j'ai découvert quelque chose de magique. Quand je fais un clic droit sur ma ligne table id, je peux choisir "copier" et ensuite la coller sur une feuille Excel. Par contre, je ne troue pas de documentation sur les objets HTMLTable. Est-ce qu'il est possible de faire cela via VBA ?



Merci d'avance.

[tamtam64]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Querytables.add

Je pense que tu galéreras moins c'est plus facile a utiliser cherche sur internet

[Daniel.C]

MERCI !!!

Tu me tires une super épine du pied ! J'ignorais complètement qu'on pouvait se servir de QueryTable pour des pages HTML. Je me coucherai moins bête ce soir.

[Daniel.C]

Pour les générations futures, voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub ExtractionTables()
    Set qtQtrResults = ActiveSheet.QueryTables _
     .Add(Connection:="URL;http://www.boursorama.com/cours.phtml?symbole=1rPATO", _
     Destination:=[A1])
    With qtQtrResults
     .WebFormatting = xlNone
     .WebSelectionType = xlSpecifiedTables
     .WebTables = "1,2"
     .Refresh
    End With
End Sub

(je n'ai pas changé le nom des variables).