Détecter une fenêtre internet active VBA Excel
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| 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! :D
