Discussion :

[lenovo49]

Je souhaite savoir comment valider une fenetre popup de validation qui s'ouvre suite à une macro qui clic sur un bouton dans une page html?
Le code se bloque aprés le click et attend que je valide le "ok" de la popup avant de reprendre l'execution du code!!

Merci pous vos réponses.

[mercatog]

Bonjour
Peut être avec un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendKeys "{ENTER}"

Sans garantie

[lenovo49]

Merci, mais dans ce cas il ne prend pas la commande sendkey ...
C'est un peu comme si ru as un msgbox "bonjour". Tant que tu ne cliques pas sur "ok" le code est en pause.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
sub test
msgbox"essai"
sendkey "[~]"
end sub

Donc mon probleme est est le même mais sur une fenetre IE de confirmation
"ok" ou "annuler" ==> le code reste donc bloqué.

[mercatog]

Essaies donc d'introduire cette routine utilisant les API (exemple non testé faute d'avoir le lien du site et le code utilisé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
27
28
29
Option Explicit
'---------------------------------------------------------
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEX Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Public Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
 
Public Const BT_CLICK = &HF5
 
Sub CliquePopUp(ByVal TitrePopup As String)
Dim hwnd_PopUp As Long, hwnd_Ok As Long
Dim k As Integer
 
Do
    hwnd_PopUp = FindWindow(vbNullString, TitrePopup)      'ici
    k = k + 1
Loop While hwnd_PopUp = 0 And k <= 10000
'----------------------------------------------------------------
If hwnd_PopUp <> 0 Then
    hwnd_Ok = FindWindowEX(hwnd_PopUp, 0&, "Button", "&OK")    'ou simplement "OK" (caption du bouton)
    Putfocus hwnd_Ok
    SendMessage hwnd_Ok, BT_CLICK, 0&, 0&
End If
End Sub
 
'Pour tester (adapte la caption de ton popup)
Sub test()
CliquePopUp "Le titre de ton popup"
End Sub

[SfJ5Rpw8]

oui cela serait bien d'avoir le site ... et de savoir comment tu ouvre ta première page internet ( code ?)

[lenovo49]

Mon projet est sur un site intranet de mon boulot, mais je viens de trouver un exemple equivalent mais accessible pour un test:
http://www.ca-anjou-maine.fr/
ensuite tu vas dans "acceder à mes comptes" (bouton orange en haut)
et tu tombes sur la page pour rentrer ses infos perso.

Ne rentres rien dans les cases et tu valide avec "Confirmer" et donc tu as la popup qui s'ouvre!!

voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set ElementCol = appIE.Document.getElementsByTagName("INPUT")
 
For Each btnInput In ElementCol
If btnInput.Value = "Confirmer" Then
btnInput.Click' ouveture de la popup Exit For
End If
Next btnInput

le code ce bloque à cet endroit et donc même avec une action sendkey, je n'arrive pas à valider le "OK" de la popup!!

D'avance merci pour tes recherches!

[lenovo49]

J'ai mis en place la méthode sendkey mais effectivement c'est un peu barbare
et ne garantie pas le 100% dans une boucle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    Set ElementCol = navigateur.Document.getElementsByTagName("a")
    navigateur.Visible = True
    For Each link In ElementCol
    If link.innerHTML = "Valider" Then
    link.Focus: SendKeys "{ENTER}{ENTER}"
    SendKeys "{NUMLOCK}", True' remet la touche numlock du clavier active 
    Do While navigateur.Busy
    loop
    Exit For
    End If
    Next link

Si il y a d'autres solutions qui garantissent une méthode plus fiable??

Je prends toutes les solutions.....

[lenovo49]

Il me semble qu'apres plusieurs essais sur quelques boucles sa fonctionne mais
si je passe en mode industriel c'est un plantage total...
La gestion du temps et du click simulé deviens trés difficile...