Copier une table HTML et la coller sur une feuille Excel

Version imprimable

12/07/2015, 13h20
Daniel.C

1 pièce(s) jointe(s)

Copier une table HTML et la coller sur une feuille Excel

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 ?

Pièce jointe 182884

Merci d'avance.
12/07/2015, 14h53
tamtam64

voila

Code:

Querytables.add

Je pense que tu galéreras moins c'est plus facile a utiliser cherche sur internet
12/07/2015, 15h28
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.

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

Code:

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).

Fuseau horaire GMT +2. Il est actuellement 10h57.