Download file from intranet which requires to be logged in

[netuser]

Hi,

I need a little help to find a way to download a file from intranet page that require to be logged in . I tried a lot of code found here and on google and nothing works

I have the link to the file (it is not direct link with file extension) but when I am already logged in and I input the url it will popup to save the file (here is how link look like, I modified the name of real link

https://my-documents.company.com/folder/fpath/default/default-domain/Favorites@xl?contentViewName=filename&currentPage=0&pageSize=0

If I am not already logged in it will redirect me to the page to login :

https://my-documents.company.com/folder/login.jsp  (no popup just a form style login page)

How can I automatized the download of the file to a specific folder? When not logged in I want popup to ask in excel for username and pass and then download file, if already logged in I want it to download to a specific folder automatically.

Thanks for your help

 

[John_w]

Copy the downloaded file to a temporary file named with a changing file name (the time of the download in HHMMSS format), and count the lines in that:

        Dim tempFile As String
        tempFile = Format(Now, "hhmmss") & " temp.xls"
        FileCopy saveInFolder & "TasksTeamC.xls", saveInFolder & tempFile
        NumberOfLines = GetCount(saveInFolder, tempFile, wsName, cellRef)
        MsgBox "Number of lines is : " & NumberOfLines
        Kill saveInFolder & tempFile

 

[netuser]

Wow nice solution

Thanks