Discussion :

[NLEMEE]

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 :

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

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 html :

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

<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

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

[patricktoulon]

bonsoir

<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 :

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

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"

[NLEMEE]

Bonjour
Super Merci Patrick !
Nico

[NLEMEE]

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

[patricktoulon]

autant pour moi
c'est

Code :

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

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

ou directement

Code :

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

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

[NLEMEE]

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

[patricktoulon]

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

[NLEMEE]

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

[patricktoulon]

ya pas de quoi