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