Va excel envoyer fichier sur page Web (input name="x" type="file")

Bonjour,

sur un site, qye j'arrive à piloter saisie et déclenchement des scripts lorsqu'ils sont nécessaires (donc site pas "on window")

Je dois importer un fichier à l'aide d'un bouton "parcourir"

J'ai essayé, sans succès :

• Code:

  ---

  IEDoc.parentWindow.execScript "dragStart(event,'C:\OT20180718.xls')", "JavaScript"

  ---

-> ne fonctionne pas mais pas de message d'erreur

• Code:

  ---

  IEDoc.getElementsByName("fichier")(0).Value = "C:\OT20180718.xls"

  ---

-> erreur d'execution '438' : Propriété ou méthode non gérée par cet objet

• Code:

  ---

  IEDoc.getElementsByName("fichier").Value = "C:\OT20180718.xls"

  ---

-> erreur d'execution '438' : Propriété ou méthode non gérée par cet objet

• Code:

  ---

  IEDoc.getElementsByName("fichier")(0).Filename= "C:\OT20180718.xls"

  ---

-> erreur d'execution '438' : Propriété ou méthode non gérée par cet objet

• Code:

  ---

  IEDoc.getElementsByName("fichier").Filename= "C:\OT20180718.xls"

  ---

-> erreur d'execution '438' : Propriété ou méthode non gérée par cet objet

Qqu'un aurait-il une idée ?

Par avance merci

Bonjour
l'imput type file est justement bloquer pour ce genre de procedure

1. tu ne peut donc pas entrer un nom par robot(en l'occurence "vba")dans l'imput
2. et tu ne peux pas en retirer le chemin apres click
3. tu a pour reponse un "fakepath"en lecture de l'imput apres click

tu imagine bien qu'une telle demarche en js ne peut pas etre acceptable ca serait la porte ouverte a tout


dans ta fonction JS du document essaie de te debrouiller avec "readfile" pour manipuller ton fichier

ou utiliser une requete avec l'object
exemple dans mon wysyiwyg perso

ouverture d'un fichier est inscription du contenu dans un div (pour pliloter declancher le click par vba )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

function ouvrirfichier() { choixfichier.click(); var chemin = choixfichier.value; obj = new ActiveXObject("Microsoft.XMLHTTP"); obj.open("GET", chemin, false); obj.send(null); if (obj.readyState == 4) { var txt = obj.responseText.split("<cdd>")[1]; txt = txt.split("<PRE>")[0]; editeur.innerHTML = txt; } var elements = editeur.getElementsByTagName("*"); for (var i = 0; i < elements.length; i++) { if (elements[i].className === "divint" || elements[i].className === "image") { elements[i].addEventListener("dragstart", dragstart, false); if (elements[i].tagName==="IMG"){elements[i].addEventListener("mouseup", determineactive, false);} } } }

---

pour sauver soit tu utilisera un blob soit aussi la command saveAs que tu peux piloter par vba en declenchant l'evevenement click

exemple pour sauver le document html que je viens de tapaer

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

function enregistrer() { with(document) { ir = createElement('iframe'); ir.id = 'ifr'; ir.location = 'about:blank'; ir.style.display = 'none'; body.appendChild(ir); var doc = ir.contentWindow.document; doc.write("<cdd>" + editeur.innerHTML + "<cdd>"); close(); doc.execCommand('SaveAs', true, "C:\\My Documents\\Saved Content.html"); close();   body.removeChild(ir); }   }

---

mais je ne garanti rien sachant que ton fichier est en reseau pour ma part mon editeur est en local
en php tu a plus d'option mais ca reste assez compliqué a contourner

conclusion ton soucis n'est pas VBA mais plutot Javascript ou autre tu n'est donc pas sur le bon forum

a moins que tu decide de piloter toute la manoeuvre par vba ce qui implique que meme le inputfile sera plutot un dialog vba

Merci à nouveau pour ta reponse

re
de rien
si j'en savais un peu plus sur tes intentions je pourrais mieux t'aider car pratiquement tout est posssible en VBA (commande et instruction) pour modifier une page web
ce qui implique oui c'est vrai que les fonctions soit vba et pas JS rien ne t'empeche cela dit d'avoir les deux
les commandes en JS pour une exploitation directe du document et les macro vba faisant la meme chose en vba pour quand tu utilise ta page web par vba
rien n'empeche cela ;)

En fait tous les jours, pour des pointages, je dois mettre à jour deux bases de données via portail Web.
Dans un premier temps, je dois downloader depuis le 1°portail une liste de tâches qui nous ai attribuée.
Ensuite ce fichier, je dois le remettre en forme puis uploader vers le deuxième portail (afin de déclarer les nouvelles taches).
Je peux à ce moment là uploader à nouveau vers le deuxième portail les pointâges.
Enfin je download un fichier réponse du deuxième portail vers le premier portail....

Tout ce processus pourrait être automatisé en partie sauf que :
Le premier portail est "on window"
Pour le 2° je vais regarder côté script (comme tu m'a l'as suggéré). Je n'arrive pas pour l'instant à passer le premier upload. Je ne pense pas qu'il y ait un antirobot sur ce site car j'arrive à naviguer via vba. Ce que je n'arrive pas à faire c'est forcer le champs input name pour pouvoir ensuite utiliser le bouton importer.

Je te fais screen shoot lundi.

Encore merci

re
Bonjour OK

ne te meprends pas les protections "on window" sont varié et plus ou moins bien faite ,il y en a certaines que l'on peut tromper tout depend du script utilisé il y en a quelques uns

mais pour un input file ca c'est sur est certains que tu peux pas et la cette protection elle est interne a JS et cela depuis toujours

Javascript ne l'accorde tout simplement pas
sachant qu'une page web s'execute coté client tu imagine bien que si on pouvait le piloter aussi facilement ca serait une catastrophe
quand on est en local(le ficher html de la page sur DD du PC ) oui on peut
si c'est pour telecharger un fichier puis le manipuler sur ule PC puis le réuploader sur le reseau il y a peut etre une chance
mais il ne sagit plus simplement de pilotage VBA de la page web mais aussi du pilotage du blob de telechargement (le bandeau en bas de page (enregistrer/ annuler))
a moins que tu connaisse le lien exact du fichier au quel cas on peut tenter une simple requete et reconstruire le fichier avec adobstream cette derniere solution serait la plus simple et instantané c'est comme ca que l'on telecharge une image ou un fichier sur le web

un petit exemple simplifié

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function telecharge_fichier(url As String, CHEMIN) As String Dim CHEMIN As String Dim ReQ As Object, oStream As Object On Error Resume Next 'On ne gère pas les erreurs Set ReQ = CreateObject("Microsoft.XMLHTTP") ReQ.Open "get", url, False: ReQ.send Set oStream = CreateObject("ADODB.Stream") oStream.Open: oStream.Type = 1: oStream.Write ReQ.responsebody: oStream.SaveToFile CHEMIN: oStream.Close telecharge_fichier= CHEMIN Set oStream = Nothing: Set ReQ = Nothing End Function

---

pour tester

Code:

---

1 2 3 4 5 6

sub test monfichier =telecharge_fichier ("https://....","C:\mondossier.\monfichier.extention") 'extention c'est l extention du fichier (.txt,.xls,.jpeg,.etc....) if dir(monfichier)<>"" then 'si il est la c'est OK on l'utilise end if end sub

---

il y a aussi l'api uldownload aussi
mais sans que tu soit prevcis je ne peux t'en dire plus

Bonjour,

en fait ce que je souhaite faire c'est uploader un fichier de mon PC vers le site.

Pour cela, le serveur stock en mémoire "fichier" (via un input name="fichier") l'emplacement de mon fichier puis le clique sur un bouton lance un script qui upload le fichier.

Pièce jointe 398717

Code pour le champs "parcourir" :

Code:

---

1 2 3 4 5 6

<div id="fichier" onmousedown="dragStart(event,'fichier')"> <table> <tr> <td>Fichier: </td> <td><input type="file" name="fichier" size="30" value="" class=""></td> </tr>

---

Code pour le bouton "Importer ce fichier"

Code:

---

1 2 3

<input type="button" id="BtnImport" tabindex="-1" class="btnImport" value="Importer ce fichier" onclick="addFile();" onmousedown="dragStart(event,'BtnImport')"/>

---

le code des scripts sont :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

function addFile(){ if (fieldFormValue('importGCMId')=='' || fieldFormValue('importGCMId')=='0') { alert('Merci de choisir un modèle d\'import'); return false; }   if (fieldFormValue('fichier')=='') { alert('Merci de choisir un fichier'); return false; } disableAllButtons(); setAOFandSubmit('AOF_TRAITE_FICHIER'); return false; }

---

Code:

---

1 2 3 4 5

function setAOFandSubmit(action){ document.forms[0].actiononform.value=action; document.forms[0].submit(); return false; }

---