VBA - IE Automation - guardar como PDF no funciona
Estoy tratando de descargar automáticamente archivos PDF desde un sitio web (publicación de trabajo) gracias a una automatización de IE en VBA y, por alguna razón, no logro generar un solo PDF.
Hacerlo manualmente yendo a la página web y haciendo un 'guardar destino como' en el ícono de PDF funciona bien y me da un PDF válido pero la automatización falla.
No entiendo por qué y espero que alguien pueda darme una pista.
Gracias
VeeBee
Por favor encuentre el código que tengo hasta ahora (las URL son públicas y he recogido ofertas al azar)
Private Declare Function DownloadFilefromURL Lib "urlmon" _
Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Public Function DownloadFile(SourceUrl As String, LocalFile As String) As Boolean
DownloadFile = DownloadFilefromURL(0&, SourceUrl, LocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function
Sub TestSavePDF()
Dim oNav As SHDocVw.InternetExplorer
Dim oDoc As MSHTML.HTMLDocument
Dim MyURL As String
Set oNav = New SHDocVw.InternetExplorer
oNav.Visible = True
'Test Altays Client A (Banque de France)
MyURL = "https://www.recrutement.banque-france.fr/detail-offre/?NoSource=16001&NoSociete=167&NoOffre=2036788&NoLangue=1"
'Test Altays Client B (Egis)
' MyURL = "https://www.altays-progiciels.com/clicnjob/FicheOffreCand.php?PageCour=1&Liste=Oui&Autonome=0&NoOffre=2037501&RefOffrel=&NoFaml=0&NoParam1l=0&NoParam2l=0&NoParam3l=0&NoParam133l=0&NoParam134l=0&NoParam136l=0&NoEntite1=0&NoEntite=&NoPaysl=0&NoRegionl=0&NoDepartementl=0&NoTableOffreLieePl=0&NoTableOffreLieeFl=0&NoNivEtl=0&NoTableCCl=0&NoTableCC2l=0&NoTableCC3l=0&NoTableOffreUnl=0&NoTypContratl=0&NoTypContratProl=0&NoStatutOffrel=&NoUtilisateurl=&RechPleinTextel=#ancre3"
oNav.navigate MyURL
'link provided to download the job offer in PDF. when clicked the PDF opens in a new tab
MyURL = "https://www.altays-progiciels.com/clicnjob/ExportPDFFront.php"
DownloadFile MyURL, "C:\[...Path...]\test.pdf"
End Sub