Salut
Ton 1er code est, à mon sens, plus en adéquation avec "ce qu'il est préférable de faire", je te conseil donc de persévérer avec celui-ci plutôt qu'avec l'autre.
Essai de libérer les objet une fois devenu inutile
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| sub connexion()
Dim ie As InternetExplorer
Dim IEdoc As Object
Dim DOCelement As Object
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate ("http://www.xxxxx.org")
'[...]
'connexion
Set DOCelement = IEdoc.Forms(0)
DOCelement.submit
'On libère les objets
Set ie = nothing 'La fermeture de la page internet sera laissée à la charge de l'utilisateur
Set IEDoc = Nothing
Set DOCelement = Nothing
End Sub |
Autre chose a vérifier, le fait que tu es cette erreur au retour sur la feuille Excel, n'aurais tu pas du code sur le Activate du Classeur?
Lorsque tu reviens sur ton Classeur, Internet Explorer est toujours lancé ou tu as fermé la fenêtre?
[Edit]
Ha mais attend, à aucun moment tu ne dis que tu arrives a te logger? Tu dis juste que la connection au site se passe bien. Donc si tu n'arrives pas a te logger essai comme ça
Set DOCelement = IEdoc.getElementsByName("user").Item(0)
getElementsByName te renvoie un tableau d'éléments, il faut donc préciser celui sur lequel tu veux travailler.
++
Qwaz
Partager