Si c'est dans le sens OrdiDistant -> MonOrdi
Essayes ça :
Private Sub DOWNLOAD_FILE()
'
Dim REMOTE_URL As String = "http://......" ' adresse de la page ou du fichier à récuperer
Dim F As Integer = FreeFile()
Dim WEB_CLIENT As New System.Net.WebClient()
'
Dim DNL_FILE as String = "monfichierdereception"
'
Try
WEB_CLIENT.DownloadFile(REMOTE_URL, DNL_FILE)
Catch ex As Exception
MsgBox(ex.Message)
End Try
'
End Sub
Je vais commenter le code de BLODOX pour que tu comprenne.
Private Sub DOWNLOAD_FILE() 'Declaration du sub
Dim REMOTE_URL As String = "http://......" ' adresse de la page ou du fichier à récuperer
Dim F As Integer = FreeFile()
Dim WEB_CLIENT As New System.Net.WebClient() 'Création du controle client
'
Dim DNL_FILE as String = "monfichierdereception" 'Adresse de reception
'
Try
WEB_CLIENT.DownloadFile(REMOTE_URL, DNL_FILE) 'Téléchargement
Catch ex As Exception ' S'il y a une erreur alors
MsgBox(ex.Message) 'affichier l'erreur dans une Message Box
End Try
'
End Sub 'Fin du Sub