Je suis pas du tout sur que ça marche, mais essaye quand même...
Private Function download_file(ByVal url As String, ByVal chemin As String) As String
Dim dl As New System.Net.WebClient
Dim n As Long = Environment.TickCount
Try
dl.DownloadFile(url, chemin)
dl.Dispose()
Return "téléchargement effectué en " & ((Environment.TickCount - n) / 1000) & " secondes"
Catch ex As Exception
Return ex.Message.ToString
End Try
End Function
'Puis placer la procedure :
download_file("http://portails/doc/idc_cgi_isapi.dll?IdcService=GET_FILE&dDocName=xxFILExx&allowInterrupt=1&RevisionSelectionMethod=Latest", "C:\dossier\fichier.xls")
-----
www.et1-vb.net
et1.vb@hotmail.fr
-----