mathieulai
XLDnaute Nouveau
Bonjour, je parviens bien à compléter les champs d'un formulaire web mais quand je clique pour valider il m'indique que les champs ne sont pas complétés.
Voici mon code :
Sub InscripApple()
Dim URL$
Dim IE As InternetExplorer
Dim HTMLdoc As HTMLDocument
Dim Ch As IHTMLElementCollection
URL = "Ce lien n'existe plus"
Set IE = New InternetExplorer
With IE
.Navigate URL
.Visible = True
Do Until .readyState = 4
DoEvents
Loop
Set HTMLdoc = .document
End With
Set Ch = HTMLdoc.getElementsByTagName("input")
Ch(3).Value = "Prénom"
Ch(4).Value = "Nom"
End Sub
Merci à vous
Voici mon code :
Sub InscripApple()
Dim URL$
Dim IE As InternetExplorer
Dim HTMLdoc As HTMLDocument
Dim Ch As IHTMLElementCollection
URL = "Ce lien n'existe plus"
Set IE = New InternetExplorer
With IE
.Navigate URL
.Visible = True
Do Until .readyState = 4
DoEvents
Loop
Set HTMLdoc = .document
End With
Set Ch = HTMLdoc.getElementsByTagName("input")
Ch(3).Value = "Prénom"
Ch(4).Value = "Nom"
End Sub
Merci à vous