Remplir input type 'file'
Bonjour,
Je cherche à automatiser l'upload de fichiers PDF sur un intranet. Je me rend donc assez facilement sur la page où l'upload est censé s'effectuer.
Sur cette page on retrouve un boutton 'Parcourir' ainisi qu'une zone de texte censée acceuillir le chemin du PDF souhaité!
Je cherche donc à remplir cette zone avec un chemin passé en parametre dans ma macro! Je pensais faire quelquechose comme ci-dessous:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Option Explicit
Sub Post_fact()
Dim ie As Variant
Dim url As String
Set ie = CreateObject("InternetExplorer.application")
url = "https://shared-workspaces.corp.intraxa/GroupSolutions/Support/Propale/_layouts/Upload.aspx?List=%7B32D1AC8D%2DD431%2D4AA9%2D8F2E%2D54EB114C0DD4%7D&RootFolder=%2FGroupSolutions%2FSupport%2FPropale%2FTestfact2&Source=https%3A%2F%2Fshared%2Dworkspaces%2Ecorp%2Eintraxa%2FGroupSolutions%2FSupport%2FPropale%2FTestfact2%2FForms%2FAllItems%2Easpx"
ie.Navigate url
ie.Visible = True
ie.document.all("ctl00_PlaceHolderMain_ctl01_ctl02_InputFile").Value = chemin_PDF
End Sub |
Malheureusement ceci ne semble pas marcher car il s'agit dans le code source d'un input de type 'file' et non 'text'! J'aurais aimé savoir s'il existait un moyen de passer outre ceci! Sans avoir à demander à l'utilisateur de choisir lui-même le fichier à uploader.
En attendant une reponse à ma question :)
Chipss
