Problème - variable IE - récupérer le contenu d'une page web

Version imprimable

Voir 40 message(s) de cette discussion en une page

07/01/2015, 11h05
mgelec

Problème - variable IE - récupérer le contenu d'une page web

Bonjour,

Je me permets d'ouvrir un nouveau topic au sujet du tutorial "Interaction avec Internet Explorer via VBA Excel" de Qwazerty.
je suis novice en VBA et je suis confronté à un problème majeur.
Après avoir placé un espion sur la variable IE, dans l'arborescence VBA, je n'ai aucune variable dans l'onglet "Document".

http://i38.servimg.com/u/f38/15/00/68/55/ie_bug10.jpg

J'ai bien rajouté les références dans les options de VBA:

http://i38.servimg.com/u/f38/15/00/68/55/refere11.jpg

Pour information, je suis sous Internet Explorer 10.

Merci pour votre aide
07/01/2015, 11h34
Marc-L

Bonjour, bonjour !

Conformément aux règles du forum - les lire donc ! - merci de poster le code entre balises (c'est dans les règles aussi !)
et d'indiquer le numéro de la ligne incriminée …

Normalement comme indiqué dans le tutoriel, il faut créer une variable pointant sur le document
pour voir son contenu dans la fenêtre des Variables locales …

Merci de votre aide!
Je n'ai pas trouvé cette information: "Normalement comme indiqué dans le tutoriel, il faut créer une variable pointant sur le document"
Que dois-je faire exactement? quelle variable et ou dois-je la créer?

Voici le code quasiment identique à celui du tutorial:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Option Explicit
 
Sub WaitIE(IE As InternetExplorer)
   'On boucle tant que la page n'est pas totalement chargée
   Do Until IE.ReadyState = READYSTATE_COMPLETE
      DoEvents
   Loop
End Sub
 
 
Sub RechercheVBAExcel()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
Dim InputGoogleBouton As HTMLInputElement
Dim FormGoogleCherche As HTMLFormElement
 
   'Chargement d'une page Web Google
   IE.navigate "www.google.fr"
 
   'Affichage de la fenêtre IE
   IE.Visible = True
 
   'On attend le chargement complet de la page
   WaitIE IE
 
   'On pointe le membre Document
   Set IEDoc = IE.document
 
   'On pointe notre Zone de texte
   Set InputGoogleZoneTexte = IEDoc.all("q")
 
   'On définit le texte que l'on souhaite placer à l'intérieur
   InputGoogleZoneTexte.Value = "VBA Excel"
 
   'On pointe notre bouton
   Set InputGoogleBouton = IEDoc.all("btnG")
 
   'On simule un clic
   InputGoogleBouton.Click
 
   'On attend la fin de la recherche
   WaitIE IE
 
   'On libère les variables
   Set IE = Nothing
   Set IEDoc = Nothing
 
End Sub

07/01/2015, 12h26
Marc-L

C'est bon, suffit de progresser dans le code en mode pas à pas via la touche F8
tout en vérifiant la fenêtre des Variables locales …
07/01/2015, 14h18
mgelec

Je m’excuse mais ce que tu appelles la fenêtre des variables locales est la fenêtre "espion"?
C'est justement ça mon problème, il est indiqué "aucune variable" dans l'onglet document (voir ma copie d'écran ci-dessus).
En mode pas à pas ou point d'arrêt, rien à faire l'onglet Document reste vide...
De ce fait, je ne peux analyser le code de la page et faire la correspondance VBA -> code source du browser
07/01/2015, 14h42
Marc-L

Non, juste ouvrir le menu Affichage !

Ensuite, il faut encore regarder la variable pointant sur le bon élément, voir le code …

_________________________________________________________________________________________________
Hebdo du jour : je suis Charlie …
07/01/2015, 15h39
mgelec

1 pièce(s) jointe(s)

Je ne comprends pas, je suis peut-être pas clair dans mes explications ou pas futé!!!

Je scrute l'objet IE via l'espion!
Je dois obtenir conformément au tutorial:
http://i38.servimg.com/u/f38/15/00/68/55/image710.jpg

Et j'obtiens dans Document qui reste vide:

http://i38.servimg.com/u/f38/15/00/68/55/bug_va10.jpg
07/01/2015, 15h51
davido84

1 pièce(s) jointe(s)

Bonjour, re Marc,
il me semble que c'est plutôt l'objet IEDoc que tu veux pointer non ?
Vois ce que cela donne dans la fenêtre des variables locales

Pièce jointe 165587
A+

1 pièce(s) jointe(s)

Effectivement IEDoc me donne quelque chose, mais dans le tutorial la variable pointée est IE!

Bref ce n'est pas grave, je vais essayer d'avancer dans mon projet.
Je vous expose ma problématique, vous allez peut-être pouvoir m'aiguiller.

Je cherche à récupérer les statuts des colis envoyés via le site colissimo.fr.
L'URL qui intègre directement le numéro de suivi est le suivant

http://www.colissimo.fr/portail_coli...=8J00238672635

Comme évoqué sur ce forum et après analyse du code source sous IE, le statut du colis n'est pas directement du texte mais une image:

http://i38.servimg.com/u/f38/15/00/68/55/sans_t10.jpg

Je retrouve bien cet élément dans VBA:

http://i38.servimg.com/u/f38/15/00/68/55/sans_t11.jpg

L'idée est d'exploiter cet item pour intégrer soit l'image soit directement les élements du suivi sous Excel.

Le code écrit pour l'instant:
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 33 34 35 36 37 38 Option Explicit Sub WaitIE(IE As InternetExplorer) 'On boucle tant que la page n'est pas totalement chargée Do Until IE.ReadyState = READYSTATE_COMPLETE DoEvents Loop End Sub Sub ListerBaliseTd() Dim IE As New InternetExplorer Dim IEDoc As HTMLDocument Dim htmlTagCol As IHTMLElementCollection Dim Generic As HTMLGenericElement Dim TagCol As IHTMLElementCollection Dim TagItem As IHTMLElement Dim Statut As String 'Ouvre la page Web IE.navigate "http://www.colissimo.fr/portail_colissimo/suivre.do?m=10003005&colispart=8J00238672635" IE.Visible = True WaitIE IE Set IEDoc = IE.document 'On liste les éléments de type td Set htmlTagCol = IEDoc.getElementsByTagName("td") Set TagCol = IEDoc.getElementsByTagName("td") Set TagItem = TagCol(12) Statut = TagItem.innerHTML MsgBox Statut 'On recherche la cellule ayant pour id "fr_23867263_libe_1" ' Set Generic = htmlTagCol.Item("fr_23867263_libe_1") Set IE = Nothing Set IEDoc = Nothing End Sub

07/01/2015, 19h59
Marc-L

Voir avec le navigateur ou dans le code source si l'élément ou un parent est référencé par un ID :fleche: getElementByID
sinon via une collection sur la propriété Tag :fleche: getElementsByTagName, les deux étant dans le tutoriel …

_________________________________________________________________________________________________
Hebdo du jour : je suis Charlie …
08/01/2015, 07h25
Qwazerty

Salut

Pour le contenu de document dans IE, je n'ai pas de réponse, il arrive parfois que celui-ci soit illisible et qu'il faille passer par une variable pour les lire (ici IEDoc), c'est peut-être lié au typage mais je n'en suis pas sûr.

Pour la page colissimo, j'ai regardé rapidement et cela ne semble pas être très "conventionnel". Les texte comme tu l'indique sont en effet contenu dans des images mais celles-ci ne semblent pas pouvoir être différenciées les unes des autres. Le nom du fichier semble être créé à la volé par le serveur en fonction de leur emplacement dans le tableau.
Je pense que dans un tel cas, le plus simple et de télécharger l'image (voir le tuto), pour l'affichage, il faut chercher sur le net, il y a des morceau de code pour intégrer une image dans un tableau via l'insertion d'un "shape image".
Si tu gratte un peu en programmation, il est possible de faire une lecture optique des caractère, j'avais fait ça en Delphi mais bon ça reste pas évident et probablement pas très fiable.

Bon courrage

++
Qwaz
08/01/2015, 09h30
Marc-L

En comparant avec une autre référence de colis, s'il y a correspondance des images,
dans ce cas ce ne serait pas difficile de convertir une image en texte …

_________________________________________________________________________________________________
Je suis Charlie

Jour d'ouverture des soldes : liquidation totale chez Charlie Hebdo …

Un scientifique lira des centaines de livres au cours de sa vie, mais sera toujours persuadé qu'il lui reste beaucoup à apprendre.
Un religieux n'en lira qu'un et sera persuadé d'avoir tout compris …
08/01/2015, 11h15
mgelec

Merci pour votre aide.
Dans le source Internet Explorer, le source de l'image est:

<img src="imageio?styleBold=true&width=260&id=fr_23867263_libe_1"/>

Le numéro de suivi est 8J00238672635 -> le nom de l'image avec l'id intègre donc le numéro de colis: 23867263
Ensuite, libe_1, libe_2, libe_3 correspondent aux différents libellés:
- Votre colis est livré
- Votre colis est arrivé sur son site de distribution

Je bloque au niveau du code sur comment télécharger ces images dans un répertoire. Sous vba je ne sais pas où se situent les images exactement et comment les récupérer.
Les balises sont tbody,td, tr

http://i38.servimg.com/u/f38/15/00/68/55/sans_t12.jpg
08/01/2015, 11h24
Marc-L

A quoi bon télécharger les images dans un répertoire, quel en est le but, l'intérêt ?!

_________________________________________________________________________________________________
Je suis Charlie
08/01/2015, 11h51
mgelec

Je m'explique!
J'ai un fichier Excel avec tous mes clients dans une colonne, dans une autre colonne j'ai tous les numéro de suivi.
Je souhaiterais mettre dans une 3e colonne le dernier état de la livraison du colis.
Ainsi sur une feuille Excel, je pourrais voir instantanément où en sont l'ensemble de mes colis.
Aujourd'hui pour chaque colis, je dois:
1) cliquer sur chaque URL (qui ouvre une page internet)
2) Regarder l'état du colis
3) compléter ma feuille excel

C'est long....
Je me suis dis qu'un bout de code pourrait faire ce travail!

A la base, j'étais parti pour récupérer les informations, pensant qu'elles étaient de type texte.
Etant donné qu'elles sont codées sous forme d'image, je pense à présent qu'il est peut être plus simple de les télécharger dans un répertoire puis de les intégrer dans chaque cellule en face de chaque client!
08/01/2015, 11h58
Marc-L

Citation:

Envoyé par Marc-L

En comparant avec une autre référence de colis, s'il y a correspondance des images,
dans ce cas ce ne serait pas difficile de convertir une image en texte …

Dans ce cas, il n'y a même pas besoin de télécharger !

Sinon

Citation:

Envoyé par Marc-L

Voir avec le navigateur ou dans le code source si l'élément ou un parent est référencé par un ID :fleche: getElementByID
sinon via une collection sur la propriété Tag :fleche: getElementsByTagName, les deux étant dans le tutoriel …

Voir aussi cette discussion pour lire une table …

_________________________________________________________________________________________________
Je suis Charlie

Sans liberté de la presse, il n'y a pas de Liberté !
08/01/2015, 15h01
mgelec

getElementByID et getElementsByTagName ne fonctionnent pas!
Les informations sont stockées sous forme d'image:

<img src="imageio?styleBold=true&width=260&id=fr_23867263_libe_1"/>

Rien à faire, je ne trouve pas les images dans la fenêtres des variables sous VBA.
J'ai cherché les éléments de type td:

Code:

IEDoc.getElementsByTagName("td")
08/01/2015, 15h30
Marc-L

Les deux fonctionnent sans souci !
Évidemment il faut avoir un minimum de connaissances, en dehors de suivre le tutoriel (suffisant à lui seul),
savoir utiliser un navigateur pour trouver un élément ou encore décoder le code source de la page …

C'est comme chercher un mot dans le dictionnaire, sans savoir lire
ou sans se poser la question du genre du mot (commun ou propre), c'est difficile !

Deux voies possibles :

• L'élément dispose-t-il d'un ID ? Sinon trouver un parent avec un ID.
Point d'entrée dans le dictionnaire :fleche: getElementByID ou via la collection all

• Chercher la table dans la collection des tables, point d'entrée :fleche: getElementsByTagName

Une fois la voie choisie et le point d'entrée trouvé, en y affectant une variable, il suffit ensuite de parcourir son contenu
dans la fenêtre des Variables locales pour noter le cheminement jusqu'à l'élément désiré. Collections all, children, …

__________________________________________________________________________________________________
Je suis Charlie

Certains ont des idéaux, d'autres des idées basses !
08/01/2015, 16h17
mgelec

Effectivement vous vous êtes surement rendu compte que je n'ai pas une formation d'informatique, il n'y a qu'à voir mon pseudo...
Si je me suis inscris ici c'est justement pour avoir de l'aide, chose que vous faites et je vous remercie.
Je suis scrupuleusement vos conseils mais pour le moment sans succès.

Cela parait trivial pour vous mais pas pour moi.

Citation:

Envoyé par Marc-L

Les deux fonctionnent sans souci !
Évidemment il faut avoir un minimum de connaissances, en dehors de suivre le tutoriel (suffisant à lui seul),
savoir utiliser un navigateur pour trouver un élément ou encore décoder le code source de la page …

J'ai décodé le code avec le navigateur et analyser le code source correspondant sous VBA.
Je pense, d'après ce que j'ai compris, qu'un simple getElementByID ou getElementsByTagName ne suffit pas.
Les informations ne sont pas simplement stockées sous forme de texte (voir posts ci-dessus).

A priori chaque information affichée dans le site colissimo est un fichier image de type .pnm.
08/01/2015, 16h52
Marc-L

Moi non plus ce n'est pas ma tasse de thé mais je sais lire !
En fait je suis le tutoriel, il faut scruter la structure de la page web, de la lecture donc …

Il faut suivre la filiation, c'est comme la hiérarchie d'Excel :
une cellule est l'enfant d'une feuille de calculs, donc la feuille est parent de la cellule.
Un classeur est parent d'une feuille de calculs. Et Excel est le parent d'un classeur.

Pour une page web, c'est pareil, il y a aussi une filiation - un arbre généalogique - à respecter.
Si un élément n'est pas directement accessible, il l'est forcément par un parent.

Donc soit trouver un parent disposant d'un ID (et s'il n'y en avait pas, je ne l'aurais même pas indiqué !)
soit pointer la collection des tables par une variable vu que l'élément est situé dans une table.

Une fois la table trouvée, voir la discussion en lien du post #16 décrivant la structure d'une table
que l'on retrouve en parcourant le contenu de la variable dans la fenêtre des Variables locales …

Quelle est la ligne et la cellule visées ?
Ou mieux si on sait faire une addition directement le numéro de la cellule sans passer par la ligne,
cela fonctionne comme la propriété Cells d'une plage de cellules, soit par ligne & colonne
soit directement par le numéro de la cellule …

http://www.developpez.net/forums/att...s-charlie.jpg/

Voir 40 message(s) de cette discussion en une page