Discussion :

[nastyJ]

Salut à tous,

J'essaie d'écrire une macro Excel qui me permet de parcourir une page intranet et récupérer des infos dessus.

Sur ma page intranet j'ai une liste déroulante sur laquelle j'aimerais intéragir et changer la valeur.

Le code source en HTML de la liste deroulante est le suivant:

Code html :

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

1
2
3
4
5
6
7
8
<SELECT name="findby" tabIndex="1" class="selectCode" onchange="changeSearchBy();document.filteringForm.criterion.focus();return true;"  > 
<OPTION selected value=Name>Name</OPTION> 
<OPTION value=RICOS>Ricos</OPTION> 
<OPTION value=SGC>SGC</OPTION> 
<OPTION value=DIG>DIG</OPTION> 
<OPTION value=RMC>RMC</OPTION> 
<OPTION value=REUTERS>REUTERS</OPTION> 
</SELECT>

Je veux choisir dans ma liste "RICOS" pour cela dans mon code VBA j'essaie la chose suivante:

Code :

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

1
2
3
4
Dim htmlSelectElem As HTMLSelectElement
Set htmlSelectElem = ie.document.getElementByTagName("findby")
htmlSelectElem.Value = "RICOS"
IEDoc.parentWindow.execScript "changeSearchBy()", "JavaScript"

Mais ça ne marche pas.

J'ai aussi essayé:

Code :

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

Set htmlSelectElem = IEDoc.all("findby")

Mais cela ne marche pas non plus.


Comment puis-je faire pour sélectionner dans ma liste la valeur RICOS?


Merci d'avance

[jeanmidudu]

Bonjour,

Qu'est-ce qui ne fonctionne pas? une erreur? Il ne se passe rien? Pas la bonne valeur retournée? ...
Sans ça, difficile de t'aider

[nastyJ]

Bonjour,

Désolé pour le manque de précision, voila les erreurs que j'ai:

Quand j'essaie avec Set htmlSelectElem = ie.document.getElementByTagName("findby") j'ai l'erreur suivante:

Run time error '438'
Object doesn't support this property or method

Si j'essaie avec Set htmlSelectElem = IEDoc.all("findby"), j'ai l'erreur suivante:

Run-time Error '13'
Type Mismatch

Merci

[Marc-L]

Bonjour, bonjour !

Un langage informatique, quel qu'il soit, est comme la langue française : les fautes d'orthographe sont fatales ‼

Et le message d'erreur est pourtant clair : une propriété ou méthode (objet) n'est pas supportée !
En effet, getElementByTagName n'existe pas ! Par contre getElementsByTagName oui …

Quant à la seconde erreur, là aussi le message est pourtant clair !

Voilà, voilà !

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[nastyJ]

Salut Marc et merci pour ta réponse,

Effectivement c'est bien getElementsbyTagName, mais même avec le bon orthographe j'ai l'erreur "Run-Time Error '13' Type Mismatch"

Donc comment faire pour résoudre ce problème?

Merci d'avance
Cdt

[Marc-L]

La variable est déclarée pour un type précis et tu tentes de lui en affecter un autre
comme pourtant clairement indiqué via le bouton Aide du message !

Exemple équivalent à ton code :

Code :

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

1
2
3
4
Sub Test4Noob()
    Dim L As Long
    L = "texte"
End Sub

Déclarer la variable en Variant ou Object dans un premier temps puis une fois l'affectation réussie
consulter la fenêtre des Variables locales en mode debug / pas à pas (cf tutoriel debug VBA) pour en connaitre le bon type …