Télécharger un fichier pdf depuis un site sécurisé

  • Initiateur de la discussion Initiateur de la discussion alias_2003
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

alias_2003

XLDnaute Occasionnel
Bonjour à tous,
J'aimerais télécharger un fichier pdf depuis un site sécurisé...
Voici les infos que j'ai sur le code de la page concernant ce fichier. En utilisant F12, je ne peux pas accéder aux différents "composantes" de la page, seleument au "bloc entier" de la page :
input name : tdsUrl
type : hidden
value : http\\iseu.test.com\....

--> cet url me renvoie sur une page internet, sur laquelle je peux atteindre les composantes :

id : WDCB
src : /sap/bc....-NEW&sap-wd-resource-id=WDCB&sap-wd-filedownload=X
Là, si, dans une nouvelle fenêtre, je copie ce lien src en ajoutant devant "http\\iseu.test.com\", la page chargée contient le pdf tant désiré...

Comment puis-je demander à mon code de faire tout ça et cerise sur le gâteau de me sauvegarder le fichier pdf sur mon disque dur ??


Code:
Private Sub OptionButton3_Click()
Dim IE As InternetExplorer
Dim IEdoc As HTMLDocument
Dim DOCelement As Object
Application.DisplayAlerts = False
      
Set IE = New InternetExplorer
IE.Visible = True
IE.navigate ("http://fr.TEST.com/app/search")
Do Until IE.readyState = 4
DoEvents
Loop
Set IEdoc = IE.document
Set DOCelement = IEdoc.getElementById("keywords")
DOCelement.Value = TextBox6.Value
Set DOCelement = IEdoc.getElementById("Batch")
DOCelement.Value = TextBox7.Value
Set DOCelement = IEdoc.all("Search")
DOCelement.Click
If WaitIE(IE, 6) Then
SendKeys ("{TAB}")
SendKeys ("{ENTER}")
End If


Merci de vos suggestions et de votre intérêt !
Bonne journée,
Amicalement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
11
Affichages
3 K
Retour