How to download PNC document from web page

[alpha45]

Happy New Year to all,
Can someone help me on how to download a Pnc document from a Consob web page that worked until last year and is no longer working.
The previous statement was:

Please Login or Register  to view this content.

The download page is here: https://www.consob.it/web/area-pubblica/pnc > PNC su titoli azionari, aggiornate e storiche
Thanks for any help!

[Haluk]

Try this;

Please Login or Register  to view this content.

[alpha45]

Thanks for the reply,
The url as you modified it works, but it downloads the file in folder download, while correct it should download it and open it in Desktop.
Kindly can you direct me where to add your code to avoid malfunction?
Thank you for now...
Hello

[CODE]'Questa parte va RIGOROSAMENTE in testa al Modulo vba:By Piero Tamagni-16/01/2019 mod.06/03/2019
Private Declare PtrSafe Function URLDownloadToFile 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
Sub UpdateData()
Application.ScreenUpdating = False
Sheets("SHORT").Unprotect
Dim z, DOdi, Tr, i, l, valore, stringa, DOdix
Dim rngUniques As Range, rng As Range, nome As Range, foundNome As Range, total As Double
Dim fVisRow As Long, lVisRow As Long, lCol As Long, LastRow As Long, ColLetter As String
Dim desWB As Workbook, srcWs As Worksheet, desWS As Worksheet, wk As Workbook
Set desWB = ThisWorkbook
Set desWS = ThisWorkbook.Sheets("SHORT")
Set WShell = CreateObject("WScript.Shell")
Call Clear_Temp_Files
mydPath = WShell.SpecialFolders("Desktop")

'Resp = URLDownloadToFile(0, "https://www.consob.it/documents/46180/46181/PncPubbl.xlsx/ddc5b7dc-b8a5-4d6c-aff5-0ce15e4109a9?l=" & Int(Rnd() * 1000000), mydPath & "\Pnc-" & Format(Now, "yyyy-mm-dd") & ".xlsx", 0, 0)
'Resp = URLDownloadToFile(0, "https://www.consob.it/documents/46180/46181/PncPubbl.xlsx/ddc5b7dc-b8a5-4d6c-aff5-0ce15e4109a9?l='+rand", mydPath & "\Pnc-" & Format(Now, "yyyy-mm-dd") & ".xlsx", 0, 0)

Set WShell = Nothing
Workbooks.Open (CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Pnc-" & Format(Now, "yyyy-mm-dd") & ".xlsx")
Set wk = Workbooks.Open(CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Pnc-" & Format(Now, "yyyy-mm-dd") & ".xlsx")
Set DOdi = Sheets(" Pubb. Data - Pubb. Date ").Range("A3") ' conversione formato data /a -.
Application.Windows(wk.Name).Visible = False
If DOdi = Format(desWS.Range("B1")) Then z = MsgBox(" The update date is the same, do you want to continue?", vbYesNo, " Aggiornamento dati")
z = Val(z)
....

[Haluk]

The file is downloaded into the folder where the Excel file which houses the macro code.

So, if you run the code when the file is on your desktop, it downloads the Pnc document to your desktop. If you wish, you can modify the variable "myfile" for this purpose.

[alpha45]

@Haluk
Thank you!