Manipulation d'Internet Explorer via VBA

Version imprimable

01/08/2013, 14h25
noftal

Manipulation d'Internet Explorer via VBA

Bonjour,

Bravo pour ce tutoriel.
J'ai un peu de mal à l'exploiter à fond car l'astuce qui consiste à espionner la valeur IE ne donne pas les mêmes résultats chez moi.

http://img703.imageshack.us/img703/9963/mp3u.jpg

Uploaded with ImageShack.us
A quoi est-ce dû ?

Je travaille avec Excel 2000 et visual basic 6

Salut

@noftal:
J'obtiens bien le même résultat que toi, il n'y a pas d'erreur. Si tu remontes le fil de conversation tu verras qu'il y a souvent des soucis de se genre avec les site contenant des Forms, ce qui est le cas ici. Tu as malgré tout de la chance, car le contenu est tout de même accessible.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Boursorama() 'Génére une erreur d'exécution dut au retour de deux élément 'suite à la recherche faite avec All Dim IE As New InternetExplorer Dim IEDoc As HTMLDocument Dim Generic As HTMLGenericElement 'Ouvre la page WEB IE.Navigate "http://www.boursorama.com/cours.phtml?symbole=3eFILBB" IE.Visible = True WaitIE IE Set IEDoc = IE.document 'On pointe l'élément "exa_q" Set Generic = IEDoc.all("select_marche") Set IE = Nothing Set IEDoc = Nothing End Sub
Dans cette exemple si tu break après le Set Generic =... tu pourras étudier son contenu.

Pour récupérer "select_marche" j'ai tout simplement cherché dans le code source de la page à l'aide de l'outil de développement d'IE (accessible par la touche F12). Ensuite tu utilises le bouton qui représente une flèche pour pointer l'élément qui t’intéresse sur la page ensuite tu remontes dans la hiérarchie pour trouver un élément ayant un id ou un name que tu pourras pointer. Tu trouveras tous les détails nécessaire dans le tutoriel.

Bonne journée
++
Qwaz

@Qwazerty

J'ai bien compris la fonction F12 et je l'ai bien sûr utilisée mais ce que j'aime bien dans ta méthode avec l'espionnage de IE c'est que l'on a le type de chaque élément. Ce qui est drôlement utile pour déclarer ses propres variables.
Et même en mettant un espion sur Set IEdoc, je n'obtiens pas ces infos.
et cela ne semble pas dû qu'au site web car j'ai le même pb avec l'exemple de ton tuto (google.fr).

Sinon, j'ai quelques questions pour bien comprendre.

1°/ Existe-t-il une méthode qui permet d'aller chercher des infos d'un site web sans ouvrir la page web ?

2°/ Pour m'entraîner, j'essaye d'appliquer ta méthode pour récupérer les infos qui se trouve dans un tableau name=info-valeur list" du site web suivant :
http://www.boursorama.com/cours.phtml?symbole=3eFILBB
et les copier dans 2 colonnes d'un fichier XL

J'ai trouvé une première méthode qui se base sur la recherche de l'Id situé juste au-dessus. Ca marche mais je trouve pas ça très beau, intuitivement.

Voici le code :
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 Sub Boursorama_Id() ' extraction du cours, de la date du cours et d'autres information avec la méthode "id" '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 Dim htmlTabElement() As IHTMLElement Dim GenericElem As HTMLGenericElement Dim Ws_Scores As Worksheet Dim htmlTabResultat As HTMLGenericElement Dim htmlLigneResultat As HTMLGenericElement Dim NumLigne As Byte Dim NumImg As Byte 'Chargement d'une page Web boursorama IE.Navigate "http://www.boursorama.com/cours.phtml?symbole=3eFILBB" IE.Visible = True WaitIE IE Set IEDoc = IE.document Set Ws_Scores = ThisWorkbook.Sheets("Feuil1") 'on pointe <tbody> du tableau qui nous intéresse en partant du premier "id" situé juste au-dessus qui se nomme fiche_cours_details Set htmlTabResultat = IEDoc.body.all("fiche_cours_details").children(1).children(0).children(0).children(0) NumLigne = 3 For Each htmlLigneResultat In htmlTabResultat.children Ws_Scores.Cells(NumLigne, "A") = htmlLigneResultat.children(0).innerText Ws_Scores.Cells(NumLigne, "B") = htmlLigneResultat.children(1).innerText NumLigne = NumLigne + 1 Next Set IE = Nothing Set IEDoc = Nothing End Sub
J'ai voulu mettre au point un code plus direct qui part directement du tableau dont je n'ai que le Name. Cette méthode est basée sur ta fonction getElementsByClassName.

Voici le code :
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 Sub Boursorama_class() ' extraction du cours, de la date du cours et d'autres information avec la méthode "name" '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 Dim htmlTabElement() As IHTMLElement Dim GenericElem As HTMLGenericElement Dim Ws_Scores As Worksheet Dim htmlTabResultat As HTMLGenericElement Dim htmlLigneResultat As HTMLGenericElement Dim NumLigne As Byte Dim NumImg As Byte 'Chargement d'une page Web boursorama IE.Navigate "http://www.boursorama.com/cours.phtml?symbole=3eFILBB" IE.Visible = True WaitIE IE Set IEDoc = IE.document Set Ws_Scores = ThisWorkbook.Sheets("Feuil1") Set GenericElem = IEDoc.all("content-gauche") 'on pointe directement sur le tableau name="info-valeur list" htmlTabElement = getElementsByClassName(GenericElem, "info-valeur list", False) NumLigne=3 Ws_Scores.Cells(NumLigne, "A") = htmlTabElement(0).innerText ' dans la ligne qui précède je récupère dans une seule cellule toutes les cellule de <table> sans espaces ' entre 2 cellules adjacentes et avec un retour chariot à chaque changement de ligne du tableau Set IE = Nothing Set IEDoc = Nothing End Sub
Comme indiqué en commentaire, le résultat htmlTabElement(0) me renvoie les 2 colonnes du tableau mais dans une seule cellule. Je sens qu'il ne me manque pas grand chose pour obtenir le résultat voulu, mais je ne sais pas comment modifier la ligne Ws_Scores.Cells(NumLigne, "A") = htmlTabElement(0) pour y parvenir. Peux-tu m'aider ?

05/08/2013, 11h37
Qwazerty

Salut

Pour ce qui est de l'espionnage, si tu regardes dans IEDoc il contient bien les informations dont tu as besoin

1°/ Sur Excel il existe les Données externe, si tu vas dans l'onglet/menu "Données" tu les trouveras, elles permettent de pointer une source de données extérieures, comme le nom l’indique ;), il est ainsi possible de pointer tout ou partie d'un site web. Pour le cas de boursorama, seule la page complète peut-être liée, il n'est pas possible de lier uniquement un des petits tableaux, mais toutes les informations de la page semblent importées et tu peux ensuite faire une recherche.

2°/Il n'y a pas que les Ids dans la vie :), les names peuvent être utilisés aussi et tu en as un disponible immédiatement au dessus du tableau que tu veux manipuler. Ensuite tu n'as plus qu'à utiliser cette méthode

Bonne journée
++
Qwaz
06/08/2013, 20h46
noftal
Concernant la méthode getElementsByClassName, j'ai réussi à récupérer le cours (1ère ligne du tableau HTML, 2ème cellule dont le name est "cotation") à l'aide du code suivant :
Code:

1 2 3 4 htmlTabElement = getElementsByClassName(GenericElem, "cotation", False) NumLigne = 3 Ws_Scores.Cells(NumLigne, "A") = htmlTabElement(0).innerText
la 3ème ligne (TR) du tableau HTML, 2ème cellule, ne possède pas de nom ni d'id, ni de class.
Code:

1 2 3 4 5 <tr><td class="label"> Dernier échange </td><td> 06/08/13 09:03:24 </td>
Comment faire pour récupérer la cellule contenant la date ?
Je suppose qu'il faut repartir de le class du tableau :

Code:

htmlTabElement = getElementsByClassName(GenericElem, "info-valeur list", False)

Mais ensuite ?

Après quelques heures de recherche, j'ai fini par à peu près comprendre. Donc je m'autoréponds :mouarf:

Code:

1
2
3
4
5
6
    'on pointe directement sur le tableau name="info-valeur list"
    htmlTabElement = getElementsByClassName(GenericElem, "info-valeur list", False)
 
    'on récupère le cours et la date dans 2 cellules Excel
    Ws_Scores.Cells(3, "A") = Val(htmlTabElement(0).Cells(1).innerText)
    Ws_Scores.Cells(4, "A") = Format(htmlTabElement(0).Cells(5).innerText, "dd/mm/yyyy")

Maintenant, j'aimerais connaître votre avis : lequel de ces 2 codes vous semble le plus efficace (le plus rapide et le moins gourmand en ressource) :

Code 1

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
Sub Boursorama_Id()
 
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim Ws_Scores As Worksheet
Dim htmlTabResultat As HTMLGenericElement
Dim htmlLigneResultat As HTMLGenericElement
 
   'Chargement d'une page Web boursorama
   IE.Navigate "http://www.boursorama.com/cours.phtml?symbole=3eFILBB"
   IE.Visible = True
   WaitIE IE
   Set IEDoc = IE.document
   Set Ws_Scores = ThisWorkbook.Sheets("Feuil1")
 
  'on pointe <tbody> du tableau qui nous intéresse en partant du premier "id" situé juste au-dessus qui se nomme fiche_cours_details
   Set htmlTabResultat = IEDoc.body.all("fiche_cours_details").children(1).children(0).children(0).children(0)
 
   'on récupère le cours et la date dans 2 cellules Excel
   Ws_Scores.Cells(3, "A") = Val(htmlTabResultat.children(0).children(1).innerText)
   Ws_Scores.Cells(4, "A") = Format(htmlTabResultat.children(2).children(1).innerText, "dd/mm/yyyy")
 
   Set IE = Nothing
   Set IEDoc = Nothing
 
End Sub

Code 2 :

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
Sub Boursorama_class()
 
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim htmlTabElement() As IHTMLElement
Dim GenericElem As HTMLGenericElement
Dim Ws_Scores As Worksheet
 
   'Chargement d'une page Web boursorama
   IE.Navigate "http://www.boursorama.com/cours.phtml?symbole=3eFILBB"
   IE.Visible = True
   WaitIE IE
   Set IEDoc = IE.document
   Set Ws_Scores = ThisWorkbook.Sheets("Feuil1")
 
    Set GenericElem = IEDoc.all("content-gauche")
 
    'on pointe directement sur le tableau name="info-valeur list"
    htmlTabElement = getElementsByClassName(GenericElem, "info-valeur list", False)
 
    'on récupère le cours et la date dans 2 cellules Excel
    Ws_Scores.Cells(3, "A") = Val(htmlTabElement(0).Cells(1).innerText)
    Ws_Scores.Cells(4, "A") = Format(htmlTabElement(0).Cells(5).innerText, "dd/mm/yyyy")
 
   Set IE = Nothing
   Set IEDoc = Nothing
 
End Sub

Merci pour vos lumières

08/08/2013, 07h27
Qwazerty

Salut

Etant donné le peu de différence entre les 2 codes je doute qu'on puisse objectivement voir une différence en terme de rapidité et de consommation de ressource).

A++
Qwaz