' attente de fin de chargement
Do Until IE.ReadyState = 4
DoEvents
Loop
Set IEdoc = IE.Document
'login
Set DOCelement = IEdoc.getElementsByName("username").Item
DOCelement.Value = "Mon_pseudo"
'password
Set DOCelement = IEdoc.getElementsByName("password").Item
DOCelement.Value = "Mon_mot_de_passe"
DOCelement.Select
'connexion
Set DOCelement = IEdoc.Forms(0)
DOCelement.submit
End Sub
Mais le déboggeur s'ouvre et "IE As InternetExplorer" apparait en bleu avec un message d'erreur "Type défini par l'utilisateur non défini".
Une idée ?
vb95
Messages postés3467Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention24 mars 2024168 Modifié par vb95 le 22/01/2016 à 22:36