Détecter une fenetre internet active VBA excel

Détecter une fenetre internet active VBA excel - VB/VBA/VBS - Programmation

Marsh Posté le 04-06-2009 à 17:32:15    

Bonjour à tous,  
 
Un défis de plus pour aujourd'hui!!!  
Bon, j'ai un soucis de plus, je dois simuler un clic sur une page internet, mais le problème c'est que quand je clique sur le bouton j'ai une fenêtre modale d'internet qui me demande si je suis sûre de mon action.  
Donc ce que je faisai c'était que tant que ma fenêtre était occupée (vu qu'elle est indisponnible à cause de la fenêtre modale) je simulai un Entrée du clavier.  
Et cela ralenti énormément mon code!  
 
voici le code:  
 

Code :
  1. Sub testMaj()
  3. Dim sessionutilisee, id As String
  4. Dim k As Integer
  5. Dim i As Object
  6. 'création du tableau d'onglet
  7. Call Creertableau
  9. 'Creer un objet internet
  10. Set ie = CreateObject("InternetExplorer.Application" )
  12. 'charge la page recherche d'intervenant pour récupérer le numéro de session
  13. ie.Navigate (url)
  14. Call Attendre_IE(ie)
  16. For k = 1 To 8
  17. ie.Navigate (url & "id=" & Sheets("maj" ).Cells(k, 1).Value)
  18. ie.Document.getElementsByName("MAJ_SI" ).Item(0).Click
  20. While internet.busy Or internet.readyState <> READYSTATE_COMPLETE
  21. DoEvents
  22. SendKeys "{enter}"
  23. Sheets("maj" ).Cells(k, 2).Value = "clik ok"
  24. Wend
  25. Next k
  26. End Sub


 
Une idée qui optimisserai le code?  
 
Merci d'avance à tous!
 

Reply

Marsh Posté le 04-06-2009 à 17:32:15   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed