Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Public Sub DisplayDownloadBox(ByVal sPath As String)
Call DoFileDownload(StrConv(sPath, vbUnicode))
End Sub
'APPEL :
Call DisplayDownloadBox("http://www.vbfrance.com/g/v9logo/logovb.gif")