Piloter Internet Explorer depuis Excel

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

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, 19h03

Salut,

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

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

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 : 1859
Taille : 44,8 Ko

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

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

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, 08h22

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, 09h02

re
to code vba ????? en entier

Piloter Internet Explorer depuis Excel

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager