IE Alimenter un élément et click bouton définis dans une <form>

Version imprimable

Bonjour,

J'essaie de piloter une page web depuis VBA.
La page est affichée, code ci-dessous. Tu peux l'exécuter pour l'afficher.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Modification de photo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
	<table width="737" align="center">
		<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>
		<p align="center"><font face="Arial" size="4">Modification de la photo d'une ciste</font></p>
		<p align="center"><font face="Arial" size="3"><strong>Ciste N° :&nbsp;</strong> 56909 Vrai faux doublon</font></p>
		<p align="center"><strong><font face="Arial" color="#FF0000"></font></strong></p>
				<p align="center"><font face="Arial" size="4">Attention : Si cette ciste a une photo, la r&eacute;f&eacute;rence vers celle-ci sera complètement perdue</font></p>
		<p align="center"><font face="Arial" size="4">Ne vous trompez pas.... Il n'y a pas de retour en arri&egrave;re possible</font></p>
		<form name="valid" method="post" enctype="multipart/form-data" action="infosmodifphoto.php">
			<input type="hidden" name="vaction" value="1">
			<input type="hidden" name="id" value="56909">
			<p align="center"><font face="Arial" size="3"><strong>Nouvelle image (rappel : 100 Ko max, format jpg ou gif) :&nbsp;</strong></font><input type="file" name="newphoto"></p>
			<p align="center"><input type="submit" value="Valider" name="Valider"></p>
		</form>
				</td></tr>
	</table>
<center>
  <p><a href="infoscistesc.php"><img src="../images/fr/navigation/retour.gif" border="0" width="101" height="38" alt=""></a></p>
</center>
 
</body>
</html>

1. Je n'arrive pas à alimenter l'élément "nouvelle photo" : name="newphoto".
J'ai utilisé

Code:

1
2
3
4
5
fichier = Application.GetOpenFilename("image(*.jpg),*.jpg")
If Dir(fichier) <> "" Then
    Set DOCelement = IE.Document.getElementsByName("newphoto").Item
    DOCelement.Value = fichier
End if

Mais ça ne marche pas.
newphoto fait partie de la form valid, est-ce pour çà ? Comment coder ?

2. Puis je souhaite simuler un click sur "Valider", et là j'ai eu beau chercher je n'ai pas trouvé comment faire.
J'ai essayé plein de choses. Je n'arrive pas à trouver le bon code. Je fais appel à vous pour te tirer de cette impasse.

Merci d'avance.

19/05/2018, 20h17
meud007

Pour la photo, je ne sais pas, mais la dernière fois que j'ai eu ce genre de truc, le bouton valider qui ne fonctionne pas, je m'en suis sorti en soumettant le formulaire ieDocElement.form(0).submit, je crois.
20/05/2018, 09h04
geracole

Citation:

Envoyé par meud007

Pour la photo, je ne sais pas, mais la dernière fois que j'ai eu ce genre de truc, le bouton valider qui ne fonctionne pas, je m'en suis sorti en soumettant le formulaire ieDocElement.form(0).submit, je crois.

Salut,
Non, ça ne marche pas.:(
Merci de ta réponse.
20/05/2018, 10h11
patricktoulon

re

re
et pourquoi pas utiliser ce qui est deja en place dans le document html ??????????

Code:

IE.document.getelementsbyname("newphoto")(0).Click'la boite de dialogue

Code:

IE.document.getelementsbyname("Valider")(0).Click' le bouton valider
20/05/2018, 12h33
geracole

Citation:

Envoyé par patricktoulon

re
et pourquoi pas utiliser ce qui est deja en place dans le document html ??????????

Code:

IE.document.getelementsbyname("newphoto")(0).Click'la boite de dialogue

Code:

IE.document.getelementsbyname("Valider")(0).Click' le bouton valider

Alors là, j'en reste coi, je n'avais pas du tout pensé à cette solution :oops:
On distingue tout de suite les pros et les amateurs.
En tout cas merci beaucoup.
:applo:
20/05/2018, 18h40
geracole

Non résolu en fait

Bon, la technique est bonne, mais ça ne convient pas à mon enchaînement.
Je veux une sélection de fichier, puis afficher l'image avant de valider.

Tout d'abord le fichier retourné par l'appel IE.Document.getelementsbyname("newphoto")(0).Click donne un path au format "c:/fakepath/fichier.jpg
Mes recherches m'ont indiqué que c'est par sécurité afin que le serveur ne connaisse pas le système de fichier du client. On peut résoudre cela en modifiant les paramètres d'Internet Explorer, mais ça diminue la sécurité et je ne crois pas que ce soit accepté. Donc il me faut utiliser Application.GetOpenFilename et en retour alimenter newimage.
Retour au problème initial, quelle syntaxe pour mettre le fichier choisi dans l'item ("newphoto") (0) sachant que IE.Document.getelementsbyname("newphoto")(0).value ne fait rien.

Je complète mon topo. Au retour de l'appel IE.Document.getelementsbyname("newphoto")(0).Click, la page affiche le VRAI chemin du fichier et non pas fakepath. N'est-il pas possible de le récupérer ?

Je vous sollicite donc à nouveau.
Merci.
20/05/2018, 19h50
patricktoulon

re

re
ben c'est simple si tu veux voir l'image change le mode d'affichage des boites de dialogue windows grand icone par exemple
le fakepath c'est normal c'est une securité
je serais bien tenté de proposer quelque chose mais c'est pas du niveau debutant et il faut connaitre un minimum le JS et le pilotage JS par vba
sinon oui avec .value sur newphoto tu peux faire quelque chose

tu focus sur le input newphoto(important), tu injecte dans son point value le resultat du choix de getopenfilename et valider
comme tu utilise getopenfilename par vba entre le .value et valider tu peux afficher ton image dans un userform ou n'importe quelle solution que tu adoptera
21/05/2018, 10h51
geracole

Cloture

Merci Patrick pour ta réponse. Je ne vais pas me lancer dans JS.
Finalement, je vais sélectionner le fichier avec Application.GetOpenFilename, afficher l'image puis simuler Click sur newphoto et Click sur Valider.
Il y aura une deuxième demande de sélection mais tant pis.
J'aurais amélioré les connaissance HTML avec cette discussion.
Merci. :chin:
21/05/2018, 11h36
patricktoulon

re

re

Citation:

Il y aura une deuxième demande de sélection mais tant pis.

et bien je vais t'en apprendre un peu plus;)
en utilisant getopenfilename en vba et mettant le resultat dans newphoto.value ((((EN AYANT PREALABLEMENT MIS LE FOCUS SUR NEWPHOTO!!!!))))

tu n'aura pas la fentre de dialogue de IE !!!!!!!!!!!!

c'est beau la vie non ;)
23/05/2018, 12h01
geracole

Salut,
J'ai testé. En effet IE ne renvoie pas la fenêtre de choix de fichier. C'est un bug ou c'est voulu ?
Je vais me servir de ça.
Cette fois le sujet est bien clos.:king: