VBA - Sélectionner un fichier dans explorateur ouvert par IE

Version imprimable

1 pièce(s) jointe(s)

Bonjour à toutes et à tous,

J'essaie d'automatiser des taches sur IE.
Pour cela je dois charger un fichier .pdf sur la page IE.

Après l'appuie sur le bouton charger, une fenêtre IE " choisir un fichier a charger" apparait.
Je ne sais pas comment contrôler cette fenêtre pour sélectionner le fichier et valider!

Pièce jointe 602912

J'ai tenté d'envoyer le nom du fichier avec la fonction SENDKEYS ==> Ca marche pas :-(

C-idessous une partie du code:
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 'Boutton charger le fichier pdf While IE.readyState <> READYSTATE_COMPLETE: DoEvents: Wend Set Generic = TrouverTagClass(IEDoc, "span", "css-1ixbp0l") Generic.Click 'Selection du fichier pdf chemin = Ong_Encours.Name & " " & DateDoc & "_Cmd" & Range("COMMANDE_NUMERO").Value & ".pdf" Sleep (50) Application.SendKeys chemin + "{enter}" J'ai tenté d'identifier ce POP UP en explorant les objets dans winShell ==> Sans résultats Dim IE2 As New InternetExplorer Dim IE3 As New InternetExplorer Dim winShell As New ShellWindows Dim mesure As Integer Dim i As Integer Dim maPageHtml As HTMLDocument Dim chemin As String On Error Resume Next For Each IE2 In winShell MsgBox (IE2.Name) Next IE2
Si quelqu'un a une idée je suis preneur.
Merci d'avance pour votre aide.

08/08/2021, 10h14
jurassic pork

hello,
il ne faut pas cliquer sur le bouton de chargement mais trouver le champ où est chargé le fichier (cela peut être un champ invisible). Si tu ne le trouves pas, pour t'aider il faudrait le contenu de la page où se trouve le bouton de chargement.

Ami calmant, J.P
08/08/2021, 11h19
Ali069

2 pièce(s) jointe(s)

Hello jurassic pork,

Cool, c'est intéressant.
Comme je ne suis pas très fort en HTML, je ne me suis pas trop aventuré sur cette piste.
Ci dessus le code HTML concernant le chargement fichier.

Je vois bien une balise input, mais je ne sais pas trop comment l'exploiter

Pièce jointe 602936
08/08/2021, 12h20
jurassic pork

peux-tu nous montrer visuellement à quoi ressemble ta page html de chargement ? y a t il un autre bouton que charger ?
08/08/2021, 12h54
Ali069

1 pièce(s) jointe(s)

Ci dessous les éléments de la zone de chargement.
Le drag and drop marche aussi, mais est ce possible avec VBA?

Pièce jointe 602937
08/08/2021, 14h51
jurassic pork

si ce n'est pas confidentiel peux-tu nous montrer l'adresse de la page car on ne voit pas tout dans les copies d'écran (normalement on devrait voir un handler d'événement ondrop.

1 pièce(s) jointe(s)

Sinon tu peux essayer d'utiliser selenium basic qui permet d'utiliser d'autres navigateurs que IE ( chrome par exemple).

Voici un exemple d'utilisation pour envoyer un fichier sur une page de test de chargement de fichier :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub TestUploadFile2()
Dim robot As New WebDriver
Dim Chargement  As Object
Rem robot.AddArgument "--headless"  ' pour mettre le navigateur en mode invisible
robot.AddArgument "--user-data-dir=d:\temp\selenium" ' pour pointer vers un profile particulier (enregistre les cookies dedans)
robot.Timeouts.ImplicitWait = 8000  ' temps max 8 secondes pour les commandes find avant exception
robot.Start "chrome", "https://css-tricks.com/"
robot.Window.SetSize 800, 768
robot.Get "/examples/DragAndDropFileUploading/"
robot.Wait (2000)
Set Chargement = robot.FindElementById("file")
Chargement.SendKeys "d:\temp\ocrTest.png"
robot.Wait (10000)
robot.Quit
End Sub

Pièce jointe 602952

08/08/2021, 19h20
Ali069

Merci jurassic pork,

Non ce n'est pas confidentiel, c'est pour service WEB de signature électronique. DOCUSIGN https://www.docusign.fr/
Tu peux créer un compte gratuit et accéder à la page de chargement fichier.

Comme l'essentiel du travaille est déjà réalisé, je préfères rester sur du VBA :D !
09/08/2021, 11h30
jurassic pork

hello,

Citation:

Envoyé par Ali069

Comme l'essentiel du travaille est déjà réalisé, je préfères rester sur du VBA :D !

Le souci c'est qu'avec Internet Explorer tu risques de ne pas pouvoir facilement choisir le fichier à charger.
1 - La méthode sendkeys dans un champ input de type file ou l'affectation de valeur dans ce champ ne semble pas fonctionner dans I.E
2 - La méthode qui consiste à cliquer pour ouvrir la boîte de dialogue du fichier ne fonctionne pas non plus car une fois la boîte de dialogue ouverte la macro dans Excel ne tourne plus tant qu'on ne ferme pas cette boîte donc on ne peut pas faire d'action dans la boîte de dialogue

Selenium basic tourne en VBA. Pour l'installation voir ici

Ami calmant, J.P

Bonjour JP,

merci ton aide a été précieuse pour comprendre ce qui ne tournait pas rond :) !

Lorsque le POPUP "Choisir un fichier à charger" apparait sur IE, la macro est mise en pose. Elle ne tourne plus :( .

C'est pour cette raison que le "Sendkeys" ne fonctionnait pas.

En lisant le forum je suis tombé sur ce sujet :
https://www.developpez.net/forums/d1...macro-bloquee/

Comme décrit, pour contourner le problème je suis passé par un fichierTemporaire.vbs
J'utilise celui ci pour envoyer la chaine de caractère avec la fonction "WshShell.SendKeys"

Ca peut servir a d'autre, ci dessous les codes (je ne suis pas pro donc, je pense que tout ca peut être optimisé)

1- Créer le fichierTemporaire.vbs sur VBA en utilisant les variables qui correspondent au nom du fichier.pdf à charger + une tempo1
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 Sub SauvegarderTexteCommeFichier(NomDoc As String, PathFichier As String) On Error GoTo Erreur Dim f As Integer Dim MonTexte As String Dim MonFichier As String f = FreeFile 'texte à sauvegarder MonTexte = "set WshShell = WScript.CreateObject(" & """WScript.Shell""" & ")" & vbLf & _ "WScript.Sleep 300" & vbLf & _ "chemin =""" & PathFichier & NomDoc & """" & vbLf & _ "WshShell.SendKeys chemin" & vbLf & _ "WshShell.SendKeys " & """{enter}""" 'Chemin et nom du fichier MonFichier = PathFichier & "Fichier_Temporaire.vbs" 'sauvegarde Open MonFichier For Output As #f Print #f, MonTexte Close #f Exit Sub Erreur: MsgBox "Une erreur est survenue..." End Sub
2- Lancer le fichierTemporaire.vbs

3- cliquer sur le bouton pour faire apparaitre le POPUP

4- Apres une tempo2 (>tempo1) supprimer le fichierTemporaire.vbs
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ' appel de la fonction pour creer le fichierTemporaire.vbs Call SauvegarderTexteCommeFichier(NomDuFichier, Chemin) Sleep (1000) ' lancer le script Set oWsh = CreateObject("Shell.Application") oWsh.ShellExecute Chemin & "Fichier_Temporaire.vbs" Set oWsh = Nothing 'Appui sur le bouton sur le page IE. Le POPUP apparait Generic.Click Sleep (500) ' Suppressions du fichierTemporaire.vbs Kill Chemin & "Fichier_Temporaire.vbs"
Ci dessous le code du fichierTemporaire.vbs :
Code:

1 2 3 4 5 set WshShell = WScript.CreateObject("WScript.Shell") WScript.Sleep 300 chemin ="C:\Users\xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\fichier.pdf" WshShell.SendKeys chemin WshShell.SendKeys "{enter}"
Et voilouuu :D !

hello,
je crois que j'ai trouvé beaucoup plus simple pour pouvoir utiliser la boîte de dialogue de choix du fichier :) :
Si au lieu de faire un clic on envoie la touche space cela revient au même mais l'avantage majeur c'est que le VBA n'est plus bloqué. Exemple :

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
 
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub UploadFileIE()
'Déclaration des variables
 
Dim ie As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim Charger As HTMLInputElement
 
 
'On ouvre la page Web
'ie.Navigate2 "https://css-tricks.com/examples/DragAndDropFileUploading/"
ie.Navigate2 "https://mdn.github.io/learning-area/html/forms/file-examples/simple-file.html"
ie.Visible = True
WaitIE ie
Set IEDoc = ie.Document
Set Charger = IEDoc.getElementById("file")
ie.Visible = True
Charger.Select
'on envoie un space (équivalent au clic)
SendKeys " "
Sleep 500
SendKeys "d:\temp\out.png"
Sleep 200
SendKeys "{ENTER}"
End Sub

Ami calmant, J.P

11/08/2021, 22h21
Ali069

1 pièce(s) jointe(s)

Bonjour JP,

J'ai tester la solution avec l'envoie d'un space... sans résultat. Je pense que ca dépend du code HTML de la page IE
Je note l'astuce pour une autre fois :D !

Comme je te disais dans un poste précédant, VBA est en attente, le code d'est plus traité.

La fenêtre IE reste bloqué sur le POPUP et je n'ai pas de message d'erreur de VBA
Au bout d'environ une minute un message s'affiche sur la fenêtre Excel :

Pièce jointe 603157

Google est ton ami :
"Object Linking and Embedding (OLE) (littéralement « liaison et incorporation d'objets ») est un protocole et un système d'objets distribués,
mis au point par Microsoft. Il permet à des applications utilisant des formats différents de dialoguer."

Excel attend la fin d'exécution d'une OLE ? Un protocole de dialogue entre Excel et IE ?

Sais tu s'il est possible d'empêcher cette OLE de mettre Excel en off?
13/08/2021, 18h26
jurassic pork

hello,
au lieu d'utiliser une automatisation de navigateur , pour docusign tu ferais mieux d'utiliser l'api rest .
Ami calmant, J.P