FORM HTML & VBA
N
Bonjour,
Je cherche a ouvrir une page internet -> et ecrire dans certain zone de texte
J'y arrive avec le IEDoc.getElementById("..............................").Value = "NOM"
En revanche, je suis bloqué avec une formulaire. En effet quand je clique sur un bouton, un formulaire apparaît mais le getElementById ne fonction pas ("erreur 424")
Comment faire pour écrire dans un formulaire internet
Sub LANCER()
Dim topdec As Date, topatt As Date, topdiff As Date, Txte As Date
Dim p As Integer
Dim sLogin, elem, bankpage, nombredepage, repere1, repere, repere3, boutonsuiv, pag
Dim IE As Object, IEDoc As Object, deb, GATE As Date, code
Set IE = CreateObject("internetexplorer.application")
IE.navigate "............."
IE.Visible = True
Do: DoEvents: Loop While IE.readyState <> 4 Or IE.Busy ' on laisse travailler IE
Set IEDoc = IE.document
IEDoc.getElementById("LoginControl_UserName").Value = "..." 'login mail
IEDoc.getElementById("LoginControl_Password").Value = "...%" 'PASSSEWORD
IEDoc.getElementById("LoginControl_LoginCode").Value = "..."
IEDoc.getElementById("LoginControl_LoginButton").Click
Do: DoEvents: Loop While IE.readyState <> 4 Or IE.Busy ' on laisse travailler IE
With IEDoc
For Each elem In .all
If elem.innerText = "TypeB" Then elem.Click ' l'action se fait que a ce moment la
i = i + 1
If i = 584 Then Exit For
Next
Do: DoEvents: Loop While IE.readyState <> 4 Or IE.Busy
'Dim Generic As HTMLGenericElement
"JE BLOQUE ICI IMPOSSIBLE D'ECRIRE DANS UN FORM
'.
'.
'.
'.
'.
'.
'.
'.
'.
End Sub
Quelqu'un aurait une solution svp?
Merci
Bonjour,
Difficiel de tester sans connaître la page html, mais voici une autre écriture qui fonctionne avec navigate ...
Sub RechercheVBAExcel()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim texte As HTMLInputElement
Dim formulaire As HTMLFormElement
IE.navigate "http://www.google.fr"
IE.Visible = True
WaitIE IE
Set IEDoc = IE.Document
Set texte = IEDoc.all("q")
texte.Value = "forum excel pratique"
Set formulaire = IEDoc.forms("f")
formulaire.submit
WaitIE IE
Set IEDoc = Nothing
Set IE = Nothing
End Sub
Sub WaitIE(IE As InternetExplorer)
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
End Sub