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 :
Merci à vous
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
Partager