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 :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub InscripApple()
 
Dim URL$
Dim IE As InternetExplorer
Dim HTMLdoc As HTMLDocument
Dim Ch As IHTMLElementCollection
 
URL = "https://appleid.apple.com/account#!&page=create"
 
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