FORM HTML & VBA

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