VBA EXCEL HTML span class= tableLink

re-bonjour à tous,

Je fais suite à une discussion que je viens de poster, j'ai préféré séparer les questions, bien qu'à mon avis le résultat va me conduire à la même logique :

Lors d'une automation avec VBA, lorsque je veux valider un bouton qui a une valeur j'utilise une boucle comme ci-dessous :

Code:

---

1 2 3 4 5

For Each objElement In IE.document.forms(0).elements If (objElement.Value) = "Query Account" Then objElement.Click Exit For End If

---

Par contre j'ai un sous menu contenant une multitude de liens de type,

Code:

---

<SPAN onclick="if(!document.forms[0].disabled)window.location='/Content/accountSummary.do?method=loadAccountSummaryBlankMethod'" class=tableLink>Manually Select Call </SPAN>

---

Et je n'arrive pas à parcourir ces liens pour arriver au sous menu

Citation:

---

Manually Select Call

---

dans le cas présent.

Juste pour rappel par rapport à ma première discussion c'est la première fois que je pilote du Web, en VBA et m'excuse si ces sujets ont déjà été abordés. J'ai lu pas mal de tutoriels et parcouru le forum, mais je n'arrive pas à trouver le moyen de "cliquer" sur le lien.

Merci d'avance
Nico

bonsoir

Citation:

---

<SPAN onclick="if(!document.forms[0].disabled)window.location='/Content/accountSummary.do?method=loadAccountSummaryBlankMethod'" class=tableLink>Manually Select Call </SPAN> Et je n'arrive pas à parcourir ces liens pour arriver au sous menu
Manually Select Call

---

heu..... en l'occurrence ici "Manually Select Call" n'est pas un sous menu mais le innertext du span
pour cliquer sur ce span tu pourrais faire simplement

Code:

---

set mySpan=IE.document.getElementsByClasseName("tableLink")(X).click

---

IE représente l'instanciation de internet que tu a démarré
X représente l'index(0,1,2,3,etc....) dans la collection des éléments de classe "tableLink"

Bonjour
Super Merci Patrick !
Nico

Re-bonjour,

je me suis précipité un peu trop vite dans ma réponse, en fait je recontre une erreur 438, j'ai testé la déclaration de Myspan de plusieurs façons mais j'ai systèmatiquement cette erreur.

MySpan as HTMLSpanElement
MySpan as Object
MySpan as IHTMLSpanElement
etc...
et toujours cette erreur ?
Merci de votre aide
Cordialement
Nico

autant pour moi
c'est

Code:

---

1 2	set mySpan=IE.document.getElementsByClasseName("tableLink")(X) mySpan.click

---

ou directement

Code:

---

1 2	IE.document.getElementsByClasseName("tableLink")(X).click

---

Bonjour,
désolé de ne pas avoir répondu plus rapidement, j'ai plusieurs projets en même temps.
Je rencontre toujours la même erreur.
Je ne comprends pas.
Désolé et merci d'avance
coridalement
Nico

oh! puré c'est de ma faute mille excuse
il n'y a pas de "e" a "class"
document.getElementsByClassName

re-Bonjour Patrick
Yes ça fonctionne, j'aurais du rechercher un peu plus... mais je suis énormement pris,
vraiment merci mille fois
Je vais essayé de voir si je peux adapter cela à mon autre question.

Nico

ya pas de quoi;)