• Initiateur de la discussion Initiateur de la discussion thomlau
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

thomlau

XLDnaute Occasionnel
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.

Code:
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
14
Affichages
2 K
Guest
G
Réponses
5
Affichages
1 K
Retour