Option Explicit
Private Declare Function TelechargerFichierURL 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 TelechargerFichierInternet(SourceUrl As String, FichierLocal As String) As Boolean
TelechargerFichierInternet = TelechargerFichierURL(0&, SourceUrl, FichierLocal, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function

Private Sub Command1_Click()
On Error GoTo ExempleErreur
Dim fichier_internet As String
Dim fichier_local As String
fichier_internet = "http://static.francetv.fr/arches/france2/default/img/logo_france2.png" ' <-- lien URL du fichier sur internet
fichier_local = "E:\3r Programmation\VB6 EXEMPLES\Internet\Telecharger un fichier internet\LogoFrance2.png" ' <-- destination locale existante

Call TelechargerFichierInternet(fichier_internet, fichier_local)

MsgBox "Le téléchargement a réussi..."
Exit Sub

ExempleErreur:
MsgBox "Une erreur s'est produite..."
End Sub