tu cree une feuille avec un controle inet et un moduel avec cette fontion :
Private Function GetInterNetFile(Location As String, Filename As String, DirToSaveAt As String, FormName As Form)
On Error Resume Next
Dim url As String
mocha = Location & Filename
Dim Dat() As Byte
Dim int As Integer
int = FreeFile()
Dat() = FormName.Inet1.OpenURL(url, icByteArray)
Open DirToSaveAt & "\" & Filename For Binary Access Write _
As #int
Put #int, , Data()
Close #int
Exit Function
End Function
ensuite :
GetInternetFile url ,fichier ,endroit a sauver,nopm de la feuille avec le inet
---------------
La Bible nous dit que Dieu, qui est riche en miséricorde, à cause du grand amour dont il nous a aimés, nous qui étions morts par nos offenses, nous a rendus vivants avec Christ.