Discussion :

[Shaekin]

Bonjour,

J'ai le même problème qu'haribo91 dans cette contribution. J'arrive à insérer les valeurs dans les listes déroulantes. Cependant, il y a une troisième liste qui apparaisse une fois que celle d'avant est remplie. Même s'il ne s'agit pas d'un bouton, j'ai essaye le commande ".click" mais rien ne change.

As-tu trouvé la solution ?

Merci de ton retour,

P.S. le site avec lequel je travaille est : http://habitat-developpement.tm.p15....t=aide_habitat

Shaekin

Bonjour,

D'abord un grand bravo pour cet excellent tuto .

Pour ma part j'ai une question sur les listes déroulantes. Tu a montré comment sélectionner un item dedans ou comment récupérer tous les choix de cette liste, mais sur certains site lorsque l'on sélectionne un item et bien la page change en fonction de celui-ci.

Or avec la méthode de sélection que tu as décrite, rien ne se passe. Enfin le bon item est sélectionné dans la liste, mais la page ne change pas pour autant, et il n'y a pas de bouton "OK" pour valider mon choix sur la page..

Peux-tu m'aider sur ce point ?


Merci.

Haribo.

[Qwazerty]

Salut

Pour la partie 64 bits, je n'ai pas d'avis étant donné que je n'ai pas le problème.

Shaekin : Si j'ai bien compris ton problème, lorsque tu renseignes les deux premières listes déroulantes, la troisième qui apparait en temps normal lors d'une saisie manuelle, n'apparait pas lors d'une saisie via un code VBA. C'est normal, si tu regardes le code HTML des deux premières listes déroulantes, tu as quelque chose comme ça

Code :

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

1
2
3
<select onchange="test(this)" name="code_beneficiaire" id="code_beneficiaire">
.....
            </select>

On peut voir que la liste déroulante exécute la fonction test() à chaque changement de son contenu, hors lors d'une saisie via un code VBA, le composant ne considère pas cela comme un changement... il faut donc provoquer l'événement OnChange de la liste déroulante (c'est le plus simple) ou appeler la procédure Test (plus compliqué je pense, puisqu'il faut passer l'objet liste déroulante en paramètre à la fonction test()).

Regarde du coté de fireevent()
ça devrait donner un truc comme ça

Code :

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

1
2
 
ListeDeroulante.fireEvent("onchange")

ListeDeroulante étant la variable qui pointe vers la liste déroulante dont tu viens de changer le contenu.

J'espère que mes explications sont claires

++
Qwaz

[Shaekin]

Bonjour,

Tout d'abord merci Qwazerty. D'une part pour ton super tutoriel et d'une autre part pour ta réponse. Cependant, je n'arrive toujours pas à récupérer les informations de la troisième liste déroulante.

Effectivement, j'ai trouvé le "onchange", seulement sur la deuxième liste déroulante (chose qui semble normal car c'est après remplir cette liste que la troisième apparaît). Merci donc pour fireevent() que je ne connaissais pas!!

Une fois la troisème liste est visible, je pensais que je pourrais faire comme sur les autres pour récupérer les options et inclure une valeur (inputelement). J'ai créé le même code (pour tout dire, copier/coller de ton tutoriel) mais il y a des erreurs que je n'arrive pas à comprendre. J'ai regardé un peu plus en profondeur sur le code html de cette liste et je me demande si c'est le "block" qui interdit au code de fonctionner :

<div id="objet" style="display: block;">

J'ai essayé avec getElementsbyId et getElementsByName mais je n'arrive pas à pointer la liste. D'après ce que j'ai compris, c'est toujours "nothing".

Le but étant d'avoir tous les choix possible afin de par la suite automatiser la sortie de la base de données sur Excel. Comme je ne sais pas si j'arrive bien à m'expliquer, tu trouveras ci-joint mon classeur avec la macro en cours.

Je te remercie d'avance de ton aide ! Par ailleurs, si tu connais un tutorieTest avec erreurs.xlsml/lien ou un livre sur ça, je suis fortement intéressé. J'ai appris grâce à toi qu'on pouvait agir via Excel sur un site web. Je connais donc presque rien et je suis un peu perdu avec tous ce genre de commandes.

[Shaekin]

Bonjour,

Quazerty, j'ai besoin de ton aide, je suis toujours bloqué car je n'arrive pas à inclure des valeurs dans la liste déroulante cachée.

J'ai essayé avec tous les options de ton tutoriel :

getElementsbyId : il s'agit d'un objet div donc pas d'Id
getElementsbyName : "objet_aide" mais il ne retrouve rien

J'ai même inclus un espion pour chercher l'Item correspondant (au début je ne savais pas comment le faire). J'ai cru trouver mon bonheur avec l'item 201, mais quand j'execute le code, j'ai toujours une erreur.

Code :

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

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
 
'Objet Aide
'Cet objet est caché avant la sélection du bénéficiaire. Il faut donc choisir avant les deux premières valeurs afin de faire apparaître la troisième liste
 
'Choisir le département
 
Set htmlSelectElem1 = IEDoc.all("departement")
 
'Exemple : Département 1
htmlSelectElem1.Value = "01"
 
 
'Ecrire le beneficiaire
 
'On pointe notre Zone de texte
   Set htmlInputElem2 = IEDoc.all("code_beneficiaire")
   htmlInputElem2.Value = "occupant"
   htmlInputElem2.FireEvent ("onchange")
'On attend la fin de la recherche
WaitIE IE
 
 
'Choisir l'objet de l'aide
 
Set htmlElementStandard = IEDoc.body.all(201)
 
'Erreur car le code ne trouve rien
 
htmlElementStandard.Value = "choix1"

Je te remercie d'avance. je pense avoir laissé le fichier Excel dans mon dernier post. Cependant, je suis incapable de le trouver. N'hésites pas à me dire si tu ne le trouves pas.

Shaekin

[patricktoulon]

onjour
en effet je viens de tester sur l'exemple d url que tu avais donné et la list3 semble etre innacessible en mode vba

c'est en effet assez récurent sur les pages web aujourd'hui il colle la protection onwindowsbygoogleapps ce qui implique que les manipulation ne peuvent se faire qu'avec la souris sur la page web et donc on window

sur certains cite n'ayant besoins que de récupérer du texte je la supprime mais la si je fait ca la page plante
resultat des courses WALOUHH!!!!!!!!

j'ai bien essayé par le parent (div id="object")mais ca pase pas non plus

c'est assez ragent!!! surtout que j'arrive a récupérer le code innerhtml de la liste

voila encore un defit pour moi

voila le responsable

Code :

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

1
2
3
4
5
6
7
8
9
10
<script type="text/javascript">
   var _gaq = _gaq || [];
   _gaq.push(['_setAccount', 'UA-27882341-1']);
   _gaq.push(['_trackPageview']);
   (function() {
     var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
     ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
     var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
   })();
 </script>

[patricktoulon]

re
voila prends celui la
j'ai bloqué la derniere ligne du code elle sert a cliquer sur le bouton debloque si tu veux cliquer
je l'ai bloqué pour que tu vois bien que les items des 3 listes sont bien changés

Code :

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

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 test()
Dim ie As Object, url As String, liste1 As Object, liste2 As Object, parentliste3 As Object, lescript, code As String
url = "http://habitat-developpement.tm.p15.siteinternet.com/particuliers/index.cfm?cont=aide_habitat"
Set ie = CreateObject("internetexplorer.application")
ie.navigate url
ie.Visible = True
Do: DoEvents: Loop While ie.readystate <> 4 Or ie.busy
'*****************************************************************************************
'on casse la protection en coupant les script du code html
code = ie.document.body.innerhtml
lescript = Split(code, "<script")
code = Replace(code, Split(lescript(2), "/script>")(0), "")
ie.document.body.innerhtml = code 'on réimplante le code html dans le body du document
'*****************************************************************************************
Set liste1 = ie.document.all("departement")
Set liste2 = ie.document.all("code_beneficiaire")
'maintenant on va selectionner mon departement (83) par son index
liste1.selectedIndex = 84
'je suis proprio  donc le 2 item de la liste2  (locataire) donc l'index 2 puisque le 1 er c'est l'entete
liste2.selectedIndex = 2: liste2.onchange
    Application.Wait (Now + TimeValue("0:00:02"))
Set parentliste3 = ie.document.getelementbyid("objet")
 parentliste3.Children(0).selectedIndex = 2
'debloque cette ligne pour cliquer sur le bouton
ie.document.getelementbyid("monform").submit
End Sub

[Shaekin]

Bonjour,

Tout d'abord, merci beaucoup patricktoulon !!

Comment as-tu appris cette technique ? Je cherche des bouquins ou autres qui puissent m'aider à devenir autonome. Car encore une fois, j'arrive à faire des choses, mais pas tout.

J'ai presque fini les macros pour extraire la base de données. Grâce à vous logiquement. Je compte poster le fichier une fois fini, car je pense qu'il peut être utile pour d'autres personnes (sujet liste déroulantes cachées : comment les faire apparaître, sujet bloqué sur VBA : comment le contourner, etc.)

Cependant, j'ai encore un dernier soucis. J'arrive à ouvrir une par une les différents "aides du département". J'arrive bien à copier les informations qui sont dans les cadres. Cependant, je n'arrive pas à copier l'innertext (le nom de l'aide - cadre vert).



C'est -à-dire, chaque cadre a un nom (logique) décrit comme :

Code :

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

1
2
<div class="titre_aide" id_titreaide_1="">>
Aide à la rénovation énergétique des logements anciens

Il n'a pas d'id (c'est vide). Il y a juste la class. J'ai cherché sur internet voir si la commande getElementsByClass existe (getElementsByClassname). Apparemment il y a des problèmes avec IE8 pour utiliser cette fonctionalité. J'ai continué à regarder, et il y a des gens qui ont créé des fonctions. Cependant, je n'arrive pas à les faire fonctionner.

Est-ce que quelqu'un a eu le même soucis ? Comment peut-on faire pour trouver des objets qui n'ont pas d'id ?

D'avance merci !!

Shaekin

[patricktoulon]

re
la technique de outrepasser la protection onwindow tu ne la trouvera null part

sans vouloir me venter je pense etre le seul sur le forum a avoir trouver ce subterfuge en meme temps c'est tellement evident (si une serrure est trop dure a ouvrir/ supprime la serrure )


appris comment :
et bien un peu beaucoup tout seul en lisant le code html des pages web en essayant de comprendre ce que chaque ligne veut dire

apres pour le reste il y a beaucoup d'exemple sur le forum et bien sur le tutoriel de qwazerty qui est exellent pour les debutants (manipulation des elements dans leur contexte)

apres pour certaines manips il te faudra apprendre et te gaméller plusieurs fois par toi meme
apres il faut dire que c'est un sujet qui m'interesse beaucoup on est 3 ou 4 a s'interesser au html/VBA

je vais regarder pour ton soucis d'element en vert bien que je comprend pas pourquoi si tu arrive a récupérer le reste

[patricktoulon]

Bon voila

en fait visuellement les bandes vertes sont les barre de titres du div contenant le tetxte je dis bien visuellement

car dans le code se sont des elements bien éparés du div

donc comme a chaque div en vert (barre de titre) on aussi un div en dessous pour le reste c'est assez facile de faire le rapprochement

j'ai ajouter 4 ligne de code et c'est tout

c'est juste un exemple si tu tu veut detaille la récuperation il te faudra discéque le div "aide" a chaque fois
en l'etat je récupère dans une variable les titre et dans l'autre le reste

teste celui la

Code :

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

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
Sub test()
Dim ie As Object, url As String, liste1 As Object, liste2 As Object, parentliste3 As Object, lescript, code As String
url = "http://habitat-developpement.tm.p15.siteinternet.com/particuliers/index.cfm?cont=aide_habitat"
Set ie = CreateObject("internetexplorer.application")
ie.navigate url
ie.Visible = True
Do: DoEvents: Loop While ie.readystate <> 4 Or ie.busy
'*****************************************************************************************
'on casse la protection en coupant les script du code html
code = ie.document.body.innerhtml
lescript = Split(code, "<script")
code = Replace(code, Split(lescript(2), "/script>")(0), "")
ie.document.body.innerhtml = code 'on réimplante le code html dans le body du document
'*****************************************************************************************
Set liste1 = ie.document.all("departement")
Set liste2 = ie.document.all("code_beneficiaire")
'maintenant on va selectionner mon departement (83) par son index
liste1.selectedIndex = 84
'je suis proprio  donc le 2 item de la liste2  (locataire) donc l'index 2 puisque le 1 er c'est l'entete
liste2.selectedIndex = 2: liste2.onchange
    Application.Wait (Now + TimeValue("0:00:02"))
Set parentliste3 = ie.document.getelementbyid("objet")
 parentliste3.Children(0).selectedIndex = 2
'debloque cette ligne pour cliquer sur le bouton

ie.document.getelementbyid("monform").submit
Do: DoEvents: Loop While ie.readystate <> 4 Or ie.busy
Set titreaide = ie.document.getelementsbyclassname("titre_aide")
Set aide = ie.document.getelementsbyclassname("aide")
For i = 0 To titreaide.Length - 1
MsgBox titreaide(i).innertext & vbCrLf & aide(i).innertext
Next
ie.Quit
End Sub

[Shaekin]

Merci beaucoup pour les réponses et surtout pour la réactivité!!

Effectivement, je trouve génial le tutoriel de qwazerty, mais il y a logiquement beaucoup plus de choses à comprendre/savoir.

J'essayerai donc d'aller peu à peu avec des codes HTML. Merci !

Concernant ta réponse sur le problème "technique", effectivement j'avais pensé d'utiliser le commande "GetElementsByClassName". J'ai copié-collé ton code et j'ai l'erreur 438 "Propriété ou méthode non gérée par cet objet". En gros par rapport aux recherches que j'ai fait, j'ai l'impression qu'il doit s'agir de ma version d'internet Explorer.

Peux-tu me dire quelle est ta version ? Penses-tu qu'il peut s'agir de ça (problème bête) ?

Merci encore une fois. J'ai déjà commencé avec un autre type de base de données dont il faut clicker pour aller au niveau inférieur, etc. J'espère arriver à comprendre le code tout seul et pourquoi par à développer une macro comme celle-ci.

En tout cas, vous êtes très sympas de m'aider.

Shaiken

[Shaekin]

Bonjour,

Je n'ai toujours pas réussi à faire fonctionner getElementsByClassName sur mon pc (Excel 2010 + IE V8). J'a trouvé sur internet des possibles bibliothèques (jQuery) mais je n'ai pas su les installer. Quelqu'un a rencontré le même problème ?

Je viens vers vous car je suis en train d'essayer de faire la même chose, récupérer une base de données internet mais cette fois ce n'est pas à travers une liste déroulante mais une liste dont il faut clicker pour afficher l'arborescence.

J'arrive à cliquer, mais je souhaite obtenir le nom des "options" ou "enfants". Exemple :

Code html :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
<DIV id=titre_arbo_after_recherche>Choisissez une catégorie de travaux ci-dessous :</DIV>
 
<DIV style="CLEAR: both"></DIV></DIV>
 
<DIV id=fam_69486 class="ligne_famille active" level="1" jQuery1447422562671="52">Gros oeuvre</DIV>
 
<DIV id=liste_fam_69486 level="1">
 
<DIV style="TEXT-ALIGN: center"><IMG src="http://chiffrage.batiactu.com/images/wait.gif"></DIV></DIV>
 
<DIV id=fam_66719 class=ligne_famille level="1" jQuery1447422562671="53">Second oeuvre</DIV>
 
<DIV id=fam_48646 class=ligne_famille level="1" jQuery1447422562671="54">Génie climatique - Plomberie - Sanitaire</DIV>
 
<DIV id=fam_48629 class=ligne_famille level="1" jQuery1447422562671="55">Électricité</DIV>
 
<DIV id=fam_48647 class=ligne_famille level="1" jQuery1447422562671="56">Aménagements extérieurs</DIV>
 
<DIV id=fam_48659 class=ligne_famille level="1" jQuery1447422562671="57">Multiservices</DIV></DIV></DIV></FORM></TD></TR>
 
<TR>

Comme j'ai "cliqué sur la première option, gros oeuvre, la ligne "<DIV id=liste_fam_69486 level="1">" s'active. C'est qui permet de regarder le submenu. Ci-dessous une capture d'écran :



Je souhaite récupérer les "id" des options (exemple : "fam_69487", etc. J'avais pensé à utiliser la commande "children" mais soit je ne sais pas l'utiliser, soit il ne s'agit pas d'enfants. Quelqu'un à une idée ?

Je vous remercie d'avance de votre aide

Shaiken

[patricktoulon]

re
bonjour
getelementsbyclass name marche pas avec IE 8 ,tres mal avec IE9 a peu pres bien avec IE10 ,ie 11 c'est une autre histoire les librairies sont conditionnées autrement mais c'est une autre histoire

conclusion au mieux IE 10 ou IE11 sinon va faire une promenade ca te changera les idées