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 :
- Sub testMaj()
- Dim sessionutilisee, id As String
- Dim k As Integer
- Dim i As Object
- 'création du tableau d'onglet
- Call Creertableau
- 'Creer un objet internet
- Set ie = CreateObject("InternetExplorer.Application" )
- 'charge la page recherche d'intervenant pour récupérer le numéro de session
- ie.Navigate (url)
- Call Attendre_IE(ie)
- For k = 1 To 8
- ie.Navigate (url & "id=" & Sheets("maj" ).Cells(k, 1).Value)
- ie.Document.getElementsByName("MAJ_SI" ).Item(0).Click
- While internet.busy Or internet.readyState <> READYSTATE_COMPLETE
- DoEvents
- SendKeys "{enter}"
- Sheets("maj" ).Cells(k, 2).Value = "clik ok"
- Wend
- Next k
- End Sub
|
Une idée qui optimisserai le code?
Merci d'avance à tous!
