salut,
voici une manière
Option Explicit
'
Private Declare 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
'
Private Sub Command1_Click()
' source
Dim sUrl As String
sUrl = "http://s2.travian.fr/map.sql"
' destination (app.path + nom du fichier distant)
Dim sDest As String
sDest = App.Path
If RightB$(sDest, 2) <> "\" Then sDest = sDest & "\"
sDest = sDest & Right$(sUrl, Len(sUrl) - InStrRev(sUrl, "/"))
' download
If URLDownloadToFile(0&, sUrl, sDest, 0&, 0&) = 0 Then
MsgBox "Fichier téléchargé :" & vbCrLf & sDest, vbInformation, "Réussite"
Else
MsgBox "Erreur lors du téléchargement", vbExclamation, "Echec"
End If
End Sub
Coloration
syntaxique automatique [AFCK]
++
PCPT [AFCK]