Pilotage internet

[thomlau]

Bonjour à tous.

J'avais trouvé ce code sur ce site il y a quelques temps, ce code fonctionnait nikel, mais depuis plusieurs jours, j'ai un message d'erreur qui s'affiche (erreur automation...).

Ce code est issu d'un fichier qui permet d'ouvrir Internet Explorer et de me connecter directement sur mon compte en banque, en évitant d'entrer mon identifiant et pass à chaque fois.

Quand j'utilise le débogueur, l'erreur apparait au niveau de la ligne que j'ai mis en rouge.

Sub PiloterInternet()
Dim IE As Object  'SHDocVw.InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
With IE
  .Silent = False
  .Navigate MY_URL
 [COLOR="Red"] Do Until .ReadyState = 4[/COLOR]   
 DoEvents
 Loop

  .Document.all("identifiant").Value = IDENTIFIANT
  .Document.all("password").Value = PASS
  .Document.forms(0).submit '/// modif pmo
  .Visible = True
End With
Set IE = Nothing


Application.WindowState = xlMinimized

ActiveWorkbook.Close

End Sub

Si vous pouviez m'aider, ce serait top. D'avance merci.

 

[thomlau]

Re : Pilotage internet

Re...

Personne pour m'aider?
Je sais que ce forum est un forum de bénévoles, mais je relance afin d'apparaître en haut de liste;
Vous me comprendrez, j'en suis sur.

@+

 

[Staple1600]

Re : Pilotage internet

Bonjour


Je suspose que tu est sous Vista avec IE7 ou IE8 non ?


Si oui alors il y a un fil que j'avais ouvert à ce sujet.

EDITION : le temps de le retrouvé

https://www.excel-downloads.com/thr...-exporterpageinternetdansfichiertexte.108102/

La solution est à l'intérieur du fil sus-nommé

 

[thomlau]

Re : Pilotage internet

Bonjour à tous.

Merci Staple1600.
C'est tout simple en fait....
Une case à décocher et hop!
Merci encore.

@+