Piloter Internet Explorer depuis Excel

**krystof_iifr** · 04/07/2018, 16h18

Bonjour,

grâce au super tuto de qwazerty https://qwazerty.developpez.com/tuto...-et-vba-excel/, j'arrive à me connecter sur la page d'accueil puis à m'identifier et cliquer sur le bouton de connexion.
(il s'agit d'une page html simple)

Je charge ensuite sur une autre page et là je n'arrive pas à simuler le click sur un lien :

Code :

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

<a tabindex="0" title="Etat" class="lsControl--valign urLnkReportGl20 urTxtStd urTxtStdVAlign" id="WD55" style="white-space: nowrap;" ondragstart="var e=window.event;e.cancelBubble=true;e.returnValue=false;return false;" ct="LN" ti="0" lsevents="{Activate:[{ResponseData:'delta',ClientAction:'submit'},{}]}" lsdata="{0:'Etat',1:'Liste\x20d’Ordres\x20\x26\x20Op\xe9rations',4:true}">

Quelqu'un aurait-il la solution ?

**Jean-Philippe André** · 04/07/2018, 20h03

Salut,

quelle syntaxe as-tu essayé pour l'instant ? Quel message d'erreur obtiens-tu ?

**krystof_iifr** · 09/07/2018, 17h58

Bonjour, j'ai essayé les codes suivants :

Code :

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

1
2
3
    Set IEDoc = IE.document
    Set InputClick = IEDoc.all("a#WD55")
    InputClick.Click

Et là j'ai une erreur '91' : Variable objet ou variable de bloc with non définie.
Si j'espionne Inputclick, j'ai 'nothing'

J'ai également essayé :

Code :

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

1
2
3
 
     Set IEDoc = IE.document
   IE.document.Script.execScript "lsevents=Activate:[{ResponseData:'delta',ClientAction:'submit'},{}]} lsdata=''{0:'Etat',1:'Liste\x20d’Ordres\x20\x26\x20Op\xe9rations',4:true}"

Et là : Erreur d'exécution '-2147352319 (80020101)':
Impossible d'effectuer l'opération à cause de l'erreur suivante 80020101

Les attributs (dans chrome) sont :
Nom : Capture.JPG
Affichages : 1886
Taille : 44,8 Ko

Nom : Capture.JPG
Affichages : 1886
Taille : 44,8 Ko

**patricktoulon** · 09/07/2018, 18h32

re
bonjour
avec beaucoup de pages web document.all fonctionne de moins en moins
la raison est simple les page web s'adaptent au explorer actuel
malheureusement la librairie IE ne changera pas

essaie plutot iedoc.getelementbyid(xxxx).click
ensuite pour executer une fonction tel que tu le presente dans ton 2d essaie c'est pas si simple en fait selon le code en js il faut le remasteuriser ce code
soit en remplacant le ' par des " et en doublant certains voir tripler parfois meme ajouter des espaces

verifier aussi (si la page web te tranfert sur d'autre pages ) si tes gestions d'attente sont bien en place
sans le reste de ton code je ne peux t'en dire plus

**krystof_iifr** · 10/07/2018, 09h22

Bonjour Patrick,

j'ai essayé ton code

Code :

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

1
2
3
4
    WaitIE IE
    Set IEDoc = IE.document
    Set InputClick = IEDoc.getElementById("WD55")
    InputClick.Click

Mais j'arrive à la meme erreur '91' : Variable objet ou variable de bloc with non définie.
Si j'espionne Inputclick, j'ai 'nothing'

si joint un extrait du code source de la page :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
</style>
</head>
<body tabindex="-1" class="urBdyStd" role="application" style="height: 100%; overflow: auto;" ti="-1" supportedthemes="sap_corbu" lsscrl="true">
<table style="width: 100%; height: 100%;" border="0" cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td style="height: 100%;">
<div id="sapwd_main_window_root_" role="main" style="width: 100%; height: 100%;" ct="PAGE" lsevents="{Help:[{ResponseData:'delta',ClientAction:'submit'},{}],ContextMenu:[{ResponseData:'delta',ClientAction:'submit'},{}],Hotkey:[{ResponseData:'delta',ClientAction:'submit'},{}],Scroll:[{ResponseData:'delta',EnqueueCardinality:'single'},{}],Request:[{ResponseData:'delta'},{}]}" lsdata="{0:'sap.client.SsrClient.form',1:'AUTO',2:'sapwd_main_window_root__HOTKEYS',3:'DISABLED',7:'NONE',10:false}">
<div class="lsHTMLContainer" id="WD0D" role="presentation" ct="SC" lsdata="{0:'NONE'}">
<span id="WD0E" role="presentation" style="white-space: normal;" ct="FL" lsdata="{}">
<span class="urLinStd urFLInl lsFlowLayoutItem--container" id="WD0F">
<table class="lsHTMLContainer" id="WD10" role="presentation" style="width: 100%;" border="0" cellspacing="0" cellpadding="0" ct="SC" lsdata="{0:'NONE'}">
<tbody>
<tr>
<td valign="top" style="width: 100%; height: 100%;">
<table title="" class="urGridLayout urHtmlTableReset" id="WD11" role="presentation" style="width: 100%;" border="0" cellspacing="0" cellpadding="0" ct="GL" lsdata="{}">
<tbody>
<tr>
<td align="left" class="lsContainerCell " id="WD44" valign="BASELINE" style="white-space: normal;" ct="GLC" lsdata="{1:'STANDARD'}">
<div class="lsHTMLContainer" id="WD47" role="presentation" ct="SC" lsdata="{0:'NONE'}">
<span id="WD48" role="presentation" style="white-space: normal;" ct="FL" lsdata="{}">
<span class="urLinStd urFLInl lsFlowLayoutItem--container" id="WD49">
<table class="lsHTMLContainer" id="WD4A" role="presentation" style="width: 100%;" border="0" cellspacing="0" cellpadding="0" ct="SC" lsdata="{0:'NONE'}">
<tbody>
<tr>
<td valign="top" style="width: 100%; height: 100%;">
<table title="" class="urGridLayout urHtmlTableReset" id="WD4B" role="presentation" style="width: 100%;" border="0" cellspacing="0" cellpadding="0" ct="GL" lsdata="{}">
<tbody>
<tr>
<td align="left" class="lsContainerCell " id="WD4D" valign="BASELINE" style="white-space: normal;" ct="GLC" lsdata="{1:'STANDARD'}">
<table class="lsPanel urGrpWhlWeb1" id="WD4E" role="group" style="width: 100%;" border="0" cellspacing="0" cellpadding="0" ct="G" lsdata="{}">
<tbody>
<tr>
<td class="urGrpBdyWeb1" valign="middle">
<div>
<table class="urTWhlFlat urHtmlTableReset urTBar lsToolbar" id="WD50" role="toolbar" style="width: 100%;" border="0" cellspacing="0" cellpadding="0" ct="T" lsdata="{0:'WD50',1:'FLAT'}">
<tbody>
<tr>
<td class="" id="WD50-itms" valign="middle" style="white-space: normal;">
<span class="urTItmLnk lsTbarItmStandalone" id="WD55-r" canhide="false">
 
<a tabindex="0" title="Etat" class="lsControl--valign urLnkReportGl20 urTxtStd urTxtStdVAlign" id="WD55" style="white-space: nowrap;" ondragstart="var e=window.event;e.cancelBubble=true;e.returnValue=false;return false;" ct="LN" ti="0" lsevents="{Activate:[{ResponseData:'delta',ClientAction:'submit'},{}]}" lsdata="{0:'Etat',1:'Liste\x20d’Ordres\x20\x26\x20Op\xe9rations',4:true}">
<img align="absmiddle" class="" style="" alt="Etat " src="/sap/public/bc/WebIcons/ur/default/l/Icon/Report.gif" border="0" />&nbsp;Liste d’Ordres &amp; Opérations</a>

A priori, la ou je veux cliquer c'est l'id WD55...

**patricktoulon** · 10/07/2018, 10h02

re
to code vba ????? en entier

**krystof_iifr** · 10/07/2018, 11h04

Sub Essai_extract_GTBU()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputUSer, InputPassword As HTMLInputElement
Dim InputClick As HTMLInputElement

'Ouverture du portail GTBU
IE.navigate "https://xxxx"
'Affichage de la fenêtre IE
IE.Visible = True
'On attend le chargement complet de la page
WaitIE IE

'Identification et connexion
Set IEDoc = IE.document
Set InputUSer = IEDoc.all("j_username")
InputUSer.Value = "xxxx"
Set InputUSer = IEDoc.all("j_password")
InputUSer.Value = "xxxx"
Set InputClick = IEDoc.all("uidPasswordLogon")
InputClick.Click
'On attend la fin de la recherche
WaitIE IE
Set IEDoc = IE.document
Set InputClick = IEDoc.getElementById("WD55")
InputClick.Click

'On libère la variable IE
Set IE = Nothing
'
End Sub

Sub WaitIE(IE As InternetExplorer)
'On boucle tant que la page n'est pas totalement chargée
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
End Sub

**patricktoulon** · 10/07/2018, 13h08

je comprens que tu veuille pas donner tes logins mot de passe mais le lien il me le faut pour tester et verifier la structure de ta page
sans url que veux tu que je fasse

on est pas arrivé

**patricktoulon** · 10/07/2018, 16h20

re oui si tu veux il n'y a pas soucis mais pour l'instant seule l'url m'est necessair pour voir son mode de protection anti robot
l'url n'a rien de confidentiel tu peux de ja la donner

**patricktoulon** · 10/07/2018, 17h31

le wd5... nexiste pas dans la page j'ai controlé je vais verifier si il est dans une frame pour etre sur

**patricktoulon** · 10/07/2018, 17h46

bon ben mes doutes sont confirmés il y a bien une prtection sur la page arrivé a destination
pour t'en convaicre regare dans le debug la listes elements que l'on arrive a pecho
teste ce code en remettant tes login, urls ,etc....

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
30
31
32
33
34
35
36
Sub Essai_extract_GTBU()
'Déclaration des variables
    Dim IE As Object, IEDoc As Object, InputUSer As Object, InputPassword As Object, InputClick As Object
    Set IE = CreateObject("internetexplorer.application")    'creation de l'intance de IE en late binding(pas de reference a activer)
    'Ouverture du portail GTBU
    IE.navigate "https://xxxxxxxxx"
    IE.Visible = True    'Affichage de la fenêtre IE
    WaitIE IE    'On attend le chargement complet de la page
    Set IEDoc = IE.document
    'control si on est deja connecté
    On Error GoTo suite
    Set Loger = IEDoc.getelementbyid("logonuidfield")    'au cas ou tu serais deja connecté les input seront absent et genereraient une erreur
    If Not Loger Is Nothing Then
        'Identification
        IEDoc.getelementsbyname("j_username")(0).Value = "xxxxxx"    'id=logonuidfield
        IEDoc.getelementsbyname("j_password")(0).Value = "xxxxxx"    'id=logonpassfield
    End If
    'submit
    IEDoc.getelementsbyname("uidPasswordLogon")(0).Click
suite:
    'On attend la fin de la recherche
    WaitIE IE
    Set IEDoc = IE.document
    'listye tout les element dispo dans la page
    For Each elem In IEDoc.all
        Debug.Print elem.ID
    Next
    'IEDoc.getelementbyid("WD55-r").Click
    'On libère la variable IE
    Set IE = Nothing
    '
End Sub
Sub WaitIE(IE As Object)
'On boucle tant que la page n'est pas totalement chargée
    Do: DoEvents: Loop While IE.readystate <> 4 Or IE.busy
End Sub

conclusion vba ou autres walouh!!!! walouh!!!
il y a certainement des bidouille mais rien n'est fiable dans ce cadre je continuerais pas dans ce chemin la
si il sagit de telecharger un fichier exel regarde en enregistrant le resau (dans F1) si tu peux eventuellement pecho le lien du fichier on purrais reproduire alors la requette mais c'est mal barré c'est cotton
rien empeche que tu observe comment j'ai coder cela pour d'autre eventuelles navigation piloté sur le web

ps: j'ai essayé avec des sendkey pour me balader dans les menu ca colle mais c'est hasardeux le moindre faux pas et c'est pas le bon menu cliqué dans la ligne ecrit en bleu

et pour le coup maintenant il me refuse tu dois etre en train de tester

**krystof_iifr** · 10/07/2018, 17h49

Merci

je vais tester et regarder.

Pour ma part il s'agissait effectivement de récupérer un fichier mais en sélectionnant que certains ordre (variable selon les jours).

**krystof_iifr** · 10/07/2018, 17h58

Comment fonctionne Debug.print ?

vers où part l'info ?

**patricktoulon** · 10/07/2018, 18h00

menu affichage en haut dans l'editeur de vba "fenetre d'execution"

**krystof_iifr** · 10/07/2018, 18h19

OK
vu

Dernière question : n'y-t-il pas moyen de capter le code que j'envoi lors du click sur la page ?

**patricktoulon** · 10/07/2018, 20h09

je ne comprends pas bien ta question quel code que tu envoie????
si tu parle du code qui s'execute quand tu click la reponse et non forcement puisque tu capte pas l'element donc son href ou "javascript:onclick" n'est pas accessible bien evidement

maintenant comme je t'ai dis tout a l'heure du peut capter tout du debut a la fin en faisant un enregistrement resau dans F1 de IE
ca fait exactement comme un enregistreur de macro pour excel sauf que c'est IE
en gros ca enregistre toutes les requetes qui sont éffectuées quand tu fait tes login puis click etc.....
peut etre qu'une requete peux etre directement simuler en vba je sais pas mais perso j'ai un doute
voila

**krystof_iifr** · 11/07/2018, 08h36

Merci.

J'ai compris que c'est foutu :-)

**patricktoulon** · 11/07/2018, 11h48

re bonjour
et oui un robot (vba ou autre) peut faire x tentatives en moins d'une seconde
parti de la proteger les données et les comptes deviendrait une sinecure sans parler de la surcharge de demande sur leur serveurs
d'ou la first protection "on window" deja ,qui c'est beaucoup ameliorée depuis quelques mois
j'analise le code depuis des semaines pour savoir comment le bifurquer
il parlent meme d'en faire une application le code sera donc encore plus difficile a percer
sachant en plus que IE lui n'évolura plus
bref c'est pas gagné

Piloter Internet Explorer depuis Excel

Macros et VBA Excel

Discussions similaires

Partager

Partager