internet exploer et vba

yoda60

XLDnaute Nouveau
bonjour ,

j'ai fait des recherche mais je ne trouve pas la solution !!

voici ma macro
Sub ifdr()

Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

IE.Navigate ("http://ezrdfzdfd.com/")
'IEapp.Visible = True
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
'remplissage
Set maPageHtml = IE.Document
Set Helem = maPageHtml.getElementsByTagName("input")

Helem(3).innerText = Sheets("Feuil1").Range("c3")
Helem(4).innerText = Sheets("Feuil1").Range("c4")

Helem(5).Click

Helem(14).Click


End Sub

je rentre mon mot de passe et mon identifiant stocker sur ma feuil et je valide , c'est après que cela se gate!!!!

après le helem click , je suis sur une nouvelle page , mais je n'arrive pas a cliquer sur un bouton je pense qu'il "fait des petits".

voici le code source

<div id="accueilmenu" style="position: relative; zoom: 1;" uid="36">


<div class="smenu arrondi not_print" id="toto" style="width: 221px; behavior: none; zoom: 1;" DD_radii="8,8,8,8" dim="[object Object]" vmlBox="[object]" vml="[object Object]" isImg="false" bW="[object Object]">
<div class="sousMenuListAccueil">
<ul class="not_print">
<li>
<li>
<li>
<a href="/tata" uid="22" $family="[object Object]" getDocument="function

c'est le tata qui m'interresse.
je ne peux pas donner le site ,si quelqu'un a une piste , je n'ai pas trouver comment faire peut etre avec generic et children mais je ne suis pas très fort en excel !!

cordialement
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
314 492
Messages
2 110 189
Membres
110 695
dernier inscrit
fabriceseka