Comment passer des paramètres à IE.document.parentWindow.execScript

**geracole** · 16/05/2018, 17h34

Bonjour,

J'essai de piloter un site web depuis mon code Excel.
Je me heurte à un problème de passage de paramètres:

56909 est un numéro et geracole un pseudo.
Quand je fais l'appel comme ça :

Code :

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

Call IE.document.parentWindow.execScript("validModifEnigme(""56909"",""geracole"")", "JavaScript")

Ça se passe bien, ma page s'affiche et je peux continuer.

Je veux passer des variables pour le numéro et le pseudo, je n'arrive pas à coder correctement.
J'ai essayé

Code :

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

1
2
3
Call IE.document.parentWindow.execScript("validModifEnigme(" & Chr(34) & Chr(34) & noCiste & Chr(34) & Chr(34) & ","  _
            & Chr(34) & Chr(34) & Pseudo & Chr(34) & Chr(34) & ")" & Chr(34) & "," _
            & Chr(34) & "JavaScript" & Chr(34))

Ou d'autres combinaisons mais chaque fois c'est rejeté, a voir dans le code
Qui peut me donner la bonne syntaxe ?
Merci beaucoup.

Ci-dessous le code complet :

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Sub ChangerTexteEnigme()
'Déclaration des variables
Dim i, l As Single
Dim wTexte, actEnigme, newEnigme As String
Dim coderr As Byte
Dim noCiste, Pseudo As String
 
noCiste = "56909": Pseudo = "geracole"
 
' Chargement de la page web de ciste.net
    coderr = 1
    Set IE = New InternetExplorer
    IE.Navigate "https://www.cistes.net"
' Affichage de la 1ere fenêtre
    coderr = 2
    If WaitIE(IE, 30) Then GoTo esub 'premier appel wait 30s pour lancer IE
    IE.Visible = True
    IE.Navigate "https://www.cistes.net/infos.php"
' Affichage des données personnelles
    coderr = 3
    If WaitIE(IE, 30) Then GoTo esub 'premier appel wait 30s pour lancer IE
' Affichage des cistes cachées
    IE.Navigate "https://www.cistes.net/infoscistesc.php"
    If WaitIE(IE, 30) Then GoTo esub 'premier appel wait 30s pour lancer IE
' Lancer la page modifier l'énigme
    coderr = 4
'-> Fonctionne
    Call IE.document.parentWindow.execScript("validModifEnigme(""56909"",""geracole"")", "JavaScript")
' -> ne marche pas
    Call IE.document.parentWindow.execScript("validModifEnigme(nociste,pseudo)", "JavaScript")
    Call IE.document.parentWindow.execScript("validModifEnigme(" & Chr(34) & Chr(34) & noCiste & Chr(34) & Chr(34) & "," _
            & Chr(34) & Chr(34) & Pseudo & Chr(34) & Chr(34) & ")" & Chr(34) & "," _
            & Chr(34) & "JavaScript" & Chr(34))
'-> Essai avec variable
      Dim funct As String    
     funct = Chr(34) & "validModifEnigme(" & Chr(34) & Chr(34) & noCiste & Chr(34) & Chr(34) & "," _
            & Chr(34) & Chr(34) & Pseudo & Chr(34) & Chr(34) & ")" & Chr(34) & "," _
            & Chr(34) & "JavaScript" & Chr(34)
    Debug.Print funct
    Call IE.document.parentWindow.execScript(funct)
' suite do code effacé  
esub:
  IE.Quit
End Sub
 
 
' Attend que la page internet soit chargée
' pTimeOut est un time out en secondes (WaitIE vaut True si Timeout)
Public Function WaitIE(oIE As InternetExplorer, Optional pTimeOut As Long = 10) As Boolean
Dim lTimer As Double
lTimer = Timer
Do
    DoEvents
   If oIE.readyState = READYSTATE_COMPLETE And Not oIE.Busy Then Exit Do
   If pTimeOut > 0 And Timer - lTimer > pTimeOut Then
       WaitIE = True: MsgBox ("Time-Out Internet Explorer")
       Exit Do
   End If
Loop
End Function

**vincent_merle** · 16/05/2018, 22h22

Bonjour, as-tu essayé ceci :

Code :

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

Call IE.document.parentWindow.execScript("validModifEnigme(" & nociste & "," & pseudo & ")", "JavaScript")

Bonne soirée.

**geracole** · 16/05/2018, 22h58

Non,

message "Impossible d'effectuer l'opération à cause de l'opération suivante 80020101 ".
J'ai cherché en vain des exemples.
Malheureusement, tu ne peux pas tester mon code car il te faut un pseudo et un mot de passe.
Merci quand même.
Pas d'autre idée ?
Bonne nuit.

**patricktoulon** · 17/05/2018, 02h36

re
salut

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
Sub test()
    Dim IE, url
    url = "https://www.cistes.net/"
    With CreateObject("internetexplorer.application")
        .Visible = True
        .navigate url
        Do: DoEvents: Loop While .readystate <> 4
        .document.getelementsbyname("login")(0).Value = "toto"
        .document.getelementsbyname("password")(0).Value = "motdepasse"
        .document.getelementsbytagname("input")(7).Click
        '
        'blabla
        'blabla
        'reste du code d'exploitation
        '.....
        '.quit a debloquer pour fermer IE
    End With
End Sub

**geracole** · 17/05/2018, 08h46

Bonjour Patrick,

J'attendais ta réponse, je lis beaucoup de tes contributions, souvent très utiles.

Mais là, est-ce que tu réponds à ma demande ?

Depuis le site www.cistes.net la saisie du login et du mot de passe ne doit pas être automatisée, en général, le login est enregistré dans le navigateur (ta réponse concerne cela non ?)

Dans la suite du traitement que je veux automatiser, je veux pouvoir modifier le texte d'une énigme sans dérouler toutes les pages. Pour cela après accès à la liste des cistes du pseudo, je fais appel à la fonction validModifEnigme du fichier html.
Si le programme appelle la fonction avec les valeurs de numéro de la ciste = "56909" et du pseudo "geracole", ça fonctionne :
Call IE.document.parentWindow.execScript("validModifEnigme(""56909"",""geracole"")", "JavaScript")

Bien entendu, l'appel doit se faire avec des variables nociste et pseudo.
Dans ce cas, je n'arrive pas à coder l'appel de la fonction pour passer nociste et pseudo en variables.
Call IE.document.parentWindow.execScript("validModifEnigme(""nociste"",""pseudo"")", "JavaScript")
Call IE.document.parentWindow.execScript("validModifEnigme("nociste","pseudo")", "JavaScript")
Echec aussi en utilisant des concaténations
Call IE.document.parentWindow.execScript("validModifEnigme(" & Chr(34) & Chr(34) & noCiste & Chr(34) & Chr(34) & "," _
& Chr(34) & Chr(34) & Pseudo & Chr(34) & Chr(34) & ")" & Chr(34) & "," _
& Chr(34) & "JavaScript" & Chr(34))

Le sujet de ce post est de savoir comment coder cet appel.
Merci de t'être intéressé à ce sujet.
S'il t'est indispensable d'avoir mon mot de passe pour faire un test en réel, je pourrais te l'envoyer en message personnel.
A+

ci-dessous le code html 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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
	<title>Données Personnelles</title>
	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
	<link href="css/cistes.css" rel="stylesheet" type="text/css">
    <link rel="alternate" type="application/rss+xml" title="Flux RSS des cacheurs de Cistes" href="https://www.cistes.net/rss/cacheur.php?xc=58975" />
<script language="JavaScript">
function validModifEnigme(id, idcisteur) {
	document.modifEnigme.action='infosmodifierenig.php';
	document.modifEnigme.id.value=id;
	document.modifEnigme.idcisteur.value=idcisteur;
	document.modifEnigme.submit();
}
</script>
</head>
<body>
<form action="infos.php" name="modifEtat" method="post">
	<input type="hidden" name="vaction" value="2">
	<input type="hidden" name="idciste" value="">
	<input type="hidden" name="etat" value="">
	<input type="hidden" name="rt" value="c">
</form>
<center>
<table width="737" border="0" cellpadding="0" cellspacing="0">
<tr><td><style type="text/css">
<!--
.style1 {
	font-family: Arial, Helvetica, sans-serif;
	font-size:12px;
	color: #8C8C8C;
	text-decoration:none;
}
-->
</style>
 
<a href="https://www.cistes.net"><img src="images/fr/navigation/rappel.jpg" width="737" height="98" alt="cistes.net" border="0"></a>
</td></tr>
<tr> 
<td bordercolor="#000000" marginwidth="5" leftmargin="5" rightmargin="5">
	<div class="message"></div>
	<div class="bloc">
		<div align="center">
			<form name="changePage" action="infoscistesc.php">
				<table align="center">
					<tr>
						<td><a href="infoscistesc.php?num=100&st=&zc=&o="><img src="images/fr/navigation/prec.jpg" border=0></a></td>
						<td align="center"><a href="infos.php" onFocus="blur()"><img src="images/fr/navigation/retour.gif" border="0" width="101" height="38"></a></td>
						<td><a href="infoscistesc.php?num=-100&st=&zc=&o="></a></td>
					</tr>
										<tr valign="middle">
						<td class="cell" colspan="3" align="center" valign="middle">
							<input type="hidden" name="st" value="">
							<input type="hidden" name="zc" value="">
							<input type="hidden" name="o" value="">
							Allez à la page : <select name="num" OnChange="Javascript:changePage.submit();">
															<option value="0" selected>1</value>
															<option value="100" >2</value>
															<option value="200" >3</value>
															<option value="300" >4</value>
															<option value="400" >5</value>
															<option value="500" >6</value>
															<option value="600" >7</value>
															<option value="700" >8</value>
															<option value="800" >9</value>
															<option value="900" >10</value>
														</select> / 10						</td>
					</tr>
									</table>
			</form>
		</div>
 
		<form name="modifEnigme" action="infosmodifierenig.php" method="post">
		<input type="hidden" name="id" value="none">
		<input type="hidden" name="idcisteur" value="none">
		<input type="hidden" name="rt" value="c">
 
		<span class="itemLabel">Liste des cistes que vous avez cachées :</span> <span class="message">951</span> <a href="rss/cacheur.php?xc=58975" target="_blank"><img src="images/common/feed.png" border="0"></a><BR><BR>
		<table class="list" cellpadding="0" cellspacing="0">
			<tr>
				<th class="cellH" nowrap><a href="infoscistesc.php?st=1&zc=1&o=2">Ciste n&deg;</a></th>
				<th class="cellH" nowrap><a href="infoscistesc.php?st=1&zc=2&o=2">Nom</a></th>
				<th class="cellH"><a href="infoscistesc.php?st=1&zc=3&o=2">Date</a></th>
				<th class="cellH">Nombre de trouveurs</th>
				<th class="cellH"><a href="infoscistesc.php?st=1&zc=5&o=2">Statut</a></th>
				<th class="cellH">Changer Statut</th>
				<th class="cellH">Modifier la ciste</th>
			</tr>
							<tr>
					<td class="cell">56909</td>
					<td class="cell"><a href="choixciste.php?numero=56909" target="_blank">La maison de l'édile</a></td>
					<td class="cell">09/05/2018</td>
					<td class="cell">0</td>
					<td class="cell" nowrap>Active, En Ligne</td>
					<td class="cell" nowrap><a href="javascript:validChangeStatus(56909,1)"><img src="images/fr/infos/maybe.jpg" width="43" height="30" border="0" /></a> <a href="javascript:validChangeStatus(56909,2)"><img src="images/fr/infos/sure.jpg" width="43" height="30" border="0" /></a></td>
					<td class="cell">
						<a href="javascript:validModifEnigme('56909','58975')" onFocus="blur()">Enigme</a><BR>
						<a href="javascript:validAddPicture('56909','58975')" onFocus="blur()">Photo</a>
					</td>
				</tr>

**geracole** · 17/05/2018, 09h57

Petite avancée :
Call IE.Document.parentWindow.execScript("validModifEnigme('56909','geracole')")
fonctionne aussi.
Mais pas mieux avec des variables.

**geracole** · 17/05/2018, 14h11

Re,
A force de tâtonner, d'essayer un peu tout, je suis arrivé à une solution qui fonctionne, sans savoir vraiment pourquoi.
Il semble que 2 paramètres ne plaisent pas, alors je n'en ai mis qu'un, le 2ème doit être facultatif (?).
IE.Document.parentWindow.execScript "validModifEnigme(" & nociste & ")", "JavaScript"
Résultat, c'est ce que je voulais faire.

Si vous voulez creuser, je suis preneur d'une explication.
Merci de vous êtes penché sur mon cas.

**patricktoulon** · 17/05/2018, 14h31

re
deja on a pas ton mot de passe ou login
et 2end second si je comprends bien cette fonction n'existe pas dans le script d'origine du JS de la page c'est toi qui le créé c'est ca ?

**mercatog** · 17/05/2018, 14h37

Code :

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

Call IE.document.parentWindow.execScript("validModifEnigme('" & nociste & "','" & pseudo & "')", "JavaScript")

**geracole** · 17/05/2018, 15h35

Envoyé par patricktoulon

re
deja on a pas ton mot de passe ou login
et 2end second si je comprends bien cette fonction n'existe pas dans le script d'origine du JS de la page c'est toi qui le créé c'est ca ?

Si le script existe; c'est la fonction validModifEnigme que tu peux voir dans le source html fourni.
Mais mercatog vient de trouver la bonne syntaxe.
Merci.

**geracole** · 17/05/2018, 15h37

Envoyé par mercatog

Code :

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

Call IE.document.parentWindow.execScript("validModifEnigme('" & nociste & "','" & pseudo & "')", "JavaScript")

Oui, c'est ça !! Un mélange de simple et double quote !!

Merci.

Comment passer des paramètres à IE.document.parentWindow.execScript [Toutes versions]

Macros et VBA Excel

Discussions similaires

Partager

Partager