VBA Validation Remplissage automatique Formulaire WEB
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:
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
