Discussion :

[krystof_iifr]

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 :

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

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

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

• Code :

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

  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 :

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

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

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

• Code :

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

  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 :

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

  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

[patricktoulon]

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 :

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
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 :

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
 
 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

[krystof_iifr]

Merci à nouveau pour ta reponse

[patricktoulon]

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

[krystof_iifr]

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

[patricktoulon]

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 :

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

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 :

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

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