Discussion :

[Arsene12]

Bonjour,

je vais sur une page HTML qui contient un menu sur la droite. Quand je clique sur un élément du menu, ça affiche une liste d'éléments cliquables qui sont du style : <span>myElement1</span>.
Dans mon code ci-dessous, quand je fais le 1er clic pour ouvrir un élément du menu, ça marche, une sous liste apparaît. Mais le second clic dans l'élément de la sous-liste ne marche pas. Pourtant le .innerText me renvoie bien le nom du lien sur lequel je clique :

Code VBA :

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

1
2
3
4
5
6
   msgbox oIE.Document.getElementsByClassName("theme")(0).innerText
   oIE.Document.getElementsByClassName("mysister sister-etraining")(0).Click
   wscript.sleep 2000
 
   msgbox oIE.Document.getElementsByClassName("sub-cat sub-cat-of-0")(2).innerText  'renvoie le nom du lien(span)
   oIE.Document.getElementsByClassName("sub-cat sub-cat-of-0")(2).Click

Pourriez-vous m'indiquer comment faire pour cliquer sur le 2ème lien, svp?

Merci d'avance pour vos réponses.
Arsène

[Arsene12]

Code VBA :

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

1
2
3
4
   msgbox oIE.Document.getElementsByClassName("theme")(0).innerText
   oIE.Document.getElementsByClassName("mysister sister-etraining")(0).Click
   wscript.sleep 2000
   msgbox oIE.Document.getElementsByClassName("myDiv")(2).innerText  'renvoie le nom du lien(span)

J'ai trouvé la solution pour le cas où y'a plusieurs div imbriquées du style <div class myDivX, avec des listes <li class myListX

Pour cliquer sur le lien, on prend les références de la liste et de la div qui suit :

Code VBA :

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

oIE.Document.getElementsByClassName("mylist1")(3).getElementsByClassName("myDiv2")(0).click

C'est pas très clair, il faut tâtonner. J'aimerai savoir comment faire pour cliquer sur un lien dans un span :

Code VBA :

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

<a target="_blank" href="https://www.google.com">myGoog</a>

J'ai essayé :

Code VBA :

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

Set elem = document.getElementById("a").getElementsByTagName("myGoog")

ça marche pas.

[Arsene12]

J'ai trouvé une solution :

Code VBA :

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

1
2
3
   set el = oIE.document.all.tags("a")(numero du tag)
   msgbox el.innerText
   el.click

Pour cliquer sur un tag, il faut donc auparavant chercher le numéro du tag dans la page.

Code VBA :

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

1
2
3
4
5
6
7
8
   Set box = oIE.document.getElementById("myID")' On sélectionne l'élément qui contient le tag
   Set el = box.getElementsbyTagName("a") 
   For i = 0 To el.length -1 
     If el(i).innerText = "myGoog" Then 
       msgbox "ok"
       el(i).Click 
     End If 
   Next