[XL-2010] Tableau de HTML vers excel avec Macro

Bonjour à tous,
il se trouve que j'essaye de récupérer des tableaux de données sur une page internet avec une macro pour les transférer dans un fichier excel. J'arrive à trouver les noms des tableaux dans ma page HTML mais je n'ai aucune idée de comment faire pour les transférer dans excel?
J'ai bien sur eu l'idée d'ouvrir directement la page HTML dans excel mais la page est alors mal mise en forme...
Les tableaux sont nommés de la facon suivante : nom1, nom2, ect...
J'arrive à les récupérer dans des objets de type MSHTML.HTMLObjetCollection mais je ne sais pas comment marchent ces objets et je ne sais pas quoi en faire?
J'utilise la fonction getElementsByName(nomdutableau) pour le récupérer
Merci d'avance pour votre aide
Arthur

Bonjour,

sans avoir de lien sur une page Web ni savoir exactement les données à récupérer …

Utiliser l'outil d'inspection intégré au navigateur pour chaque donnée à récupérer.

Ensuite en mode pas à pas via la touche F8 sur une variable objet pointant directement sur un élément,
consulter sa structure dans la fenêtre des Variables locales.

Comme tout dans une page HTML est en texte, la propriété innerText contient souvent la donnée finale …

Si l'élément est une table :fleche: à lire !

Rechercher aussi parmi les discussions de ce forum …

Consulter aussi l'aide de l'objet QueryTable (Données, Nouvelle requête sur le Web), là aussi plein d'exemples sur le site …

Citation:

---

Envoyé par arthurc02

J'ai bien sur eu l'idée d'ouvrir directement la page HTML dans excel mais la page est alors mal mise en forme...

---

Voir le tutoriel sur la manipulation des chaines de caractères en VBA …

Je sais que ce n'est pas évident sans le site mais il est prive et il demande un accès donc il n'est d'aucune utilité pour une personne du forum.
Je vais creuser pour l'innertext mais ce que j'obtiens est vraiment difficilement compréhensible, en tout cas l'objet tableau mshtml. J'avais déjà essaye de repérer la structure avec les variables locales sans succès par contre je n'ai que peu regardé du cote de l'objet querytable je vais essayer de voir ça plus en détail.
Pour la partie chaine de caractères, je n'aurais pas poster ici si je n'avais pas trouve quelque chose me convenant dans les tutos. Mon but étant vraiment d'utiliser la library mshtml (que j'utilise dans d'autre macro) jusqu'au bout et le plus proprement possible.

Veuillez m'excuser pour les accents ou fautes impromptues j'écris de mon téléphone.

Ne reste plus que ceci; bon courage …

Tout d'abord merci de l'aide.
J'essaye d'utiliser l'objet QueryTables mais j'ai du mal. J'ai voulu tester cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

With Sheets(1).QueryTables.Add(Connection:=Chr(34) + oDoc.URL + Chr(34), Destination:=Sheets(1).Range("A1")) .Name = "test" .FillAdjacentFormulas = False .PreserveFormatting = True .BackgroundQuery = False .RefreshStyle = xlOverwriteCells .SaveData = True .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = True .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With

---

oDoc est ma page html provenant du navigateur avec la méthode .document

Voici le style de page html, j'essaye de récuperer tout les tableaux compris dans les divs d'id="report_summary1" puis pareil "report_summary2", ect...
Merci d'avance pour votre aide

PS : J'ai ajouter la page html dans une archive car elle était trop grosse

Donc

Citation:

---

Envoyé par Marc-L

Si l'élément est une table :fleche: à lire !

---

Il y a même un exemple dans une discussion récente !


__________________________________________________________________________________________
L'avenir n'appartient pas qu'à ceux se levant tôt mais surtout à ceux se donnant la peine de lire …

Je sais j'ai déjà regarder cela, sauf qu'il y a 15 pages html à regarder donc c'est un peu long et compliqué. Au final la meilleur solution serait d'ouvrir directement la page html dans une nouvelle feuille sous excel, or mon problème est que l'URL n'est valable que dans le navigateur qui est en cours, c'est à dire qu'un QueryTable ou autre méthode utilisant l'Url n'est pas valable. Je cherche à ouvrir la page html se trouvant dans mon navigateur (oNav As SHDocVw.InternetExplorer) directement dans Excel?
Je ne trouve rien sur le net expliquant ou non la faisabilité de cette idée?

Le code d'une table ne fait pas quinze pages !

Suffit de regarder avec l'outil d'inspection intégré au navigateur ! :roll:

Boucler sur les tables (getElementsByTagName) puis en suivant les explications du lien …


Sinon c'est aussi réalisable directement sur le texte en utilisant des fonctions de manipulation de texte …

Excusez moi mais si je ne le fait pas j'ai une raison, j'ai 15 pages d'internet à regarder qui sont toutes différentes donc je n'ai pas envie de devoir regarder la structure des 15 pages en html pour les parcourir surtout qu'elles ne sont pas simples et toutes différentes.
Je voudrais enregistrer la page html pour après l'ouvrir avec excel.
Pour l'enregistrer je voudrais utiliser quelquechose comme cela :

Code:

---

1 2 3

Dim oNav As SHDocVw.InternetExplorer oNav.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER, "[chemin]\toto.mth", null

---

malheuresement je dois avoir la mauvaise syntaxe et je n'arrive pas à trouver la bonne si quelqu'un à une idée?

Le problème est simple je dois récupérer des infos sur 15 pages internet toutes différentes, et transmettre ces infos dans excel. Or je ne peux pas utiliser l'url des pages car celle ci ne sont pas disponible, je fais des recherches pour atterrir sur les différentes pages et les recherche ne sont pas disponibles pour d'autre personnes. Donc par exemple le système des QueryTable ne fonctionne pas.


PS : Je n'avais peut être pas de compte sur developpez mais ca ne veut pas dire que je suis bête et que je ne suis pas capable de chercher des tutos et dans le forum, si je poste ici c'est justement que je n'arrive pas à trouver de solution me correspondant!

Une table est une table (HTML), peu importe la page source !
Tout comme la navigation à partir d'une URL ou d'un fichier HTML local !
Idem pour QueryTable vu qu'il fonctionne aussi sur des fichiers texte …


Problématique d'origine :

Citation:

---

Envoyé par arthurc02

récupérer des tableaux de données sur une page internet avec une macro pour les transférer dans un fichier excel.

---

Une solution :

Citation:

---

Envoyé par Marc-L

Boucler sur les tables (getElementsByTagName) puis en suivant les explications du lien …

---

Exemple - facilement trouvable vu que c'est une discussion récente ‼ - de la structure d'une table dans la discussion
Récupérer des données d'un site WEB et les collées sur une feuille Excel …

Exemple - parmi tant d'autres sur ce forum ‼ - d'exploitation du tutoriel en lien dans le post #4 du texte d'une page HTML
dans la discussion Extraire l'ensemble des liens / URLs d'une page web …


Sans étude de la structure d'une page HTML, pas de programmation possible, de la rigueur est requise !
Sujet clos de mon côté …

__________________________________________________________________________________________
Il n'y a pas que les aigles qui atteignent les sommets, les escargots aussi mais ils en bavent !

La situation devient comique...
J'ai justement fait évoluer ma problématique, j'aurais peut être du faire plus attention au début en précisant mieux mon sujet.
Dois-je rouvrir un post avec mon exact problématique?
Car j'ai très bien compris votre solution et excusez moi mais j'y avais déjà penser avant de poster sur le forum, encore une fois je ne suis pas débile je suis tout à fait au courant de ce que l'on peut faire, aussi bien en parcourant les objets de d'une page html ou même en prenant le contenu de la page dans un string.
Ce que je veux maintenant, c'est automatiser l'enregistrement de la page html à partir d'un navigateur? Auriez vous une solution?
Merci

Comme expliqué pourtant dans le tutoriel, la ligne n°7 du code du post #2 du deuxième lien de mon précédent message
affecte à la variable T le texte de la page HTML …
Au cas où pour sauvegarder du texte dans un fichier, en dehors de la consultation de la :faq:
et de l'aide VBA intégrée concernant l'instruction Print # par exemple,
voir aussi le tutoriel Manipulation des fichiers en VBA …

Comme j'essaye de l'expliquer depuis 3 ou 4 posts, ça je sais le faire c'est justement ce que je ne veux pas faire...
Je ne comprends pas votre entêtement à vouloir me faire faire des choses dont j'ai expliqué clairement que je ne voulais pas faire.
Personnellement il me semble logique qu'enregistrer les pages html directement pour les ouvrir avec excel, est plus simple et plus rapide et surtout applicable a n'importe quelle page que de devoir étudier toutes les pages que l'on souhaite importer.
Bref si je n'ai pas de solution pour effectuer ça, je me contenterais de ce que je savais déjà c'est à dire regarder la page html plus particulièrement.

http://smileys.sur-la-toile.com/repo...sn-evanoui.gif

Bon ba j'ai utilisé la méthode classique avec l'html, c'est pas mal mais c'est un peu long...
Merci de l'aide mal grès tout

Long comment ?

Avec ma méthode - pourtant fournie et détaillée ! - c'est moins d'une seconde, quasi instantané ‼

Où est le code ?

Non mais comme j'ai quinze pages internet c'etait un peu long a mettre en place car j'ai eu quelques bugs sur certaines pages..
Mais sinon ca tourne, j'ai d'autres soucis maintenant ^^

A partir de ta page en pièce jointe, une vingtaine de lignes de code et 4 dixièmes de secondes
pour récupérer les cinq tables avec un i5 à 2.5GHz.


A partir d'une URL, si le serveur n'est pas à la ramasse, ce serait quand même moins d'une seconde …