1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
|
'Télécharge un fichier
Public Declare PtrSafe 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
Public Const ERROR_SUCCESS As Long = 0
Public 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
Sub test()
Dim xRacine As String, xInternet As String, xLocal As String, xFichier As String, xTemp As String
xRacine = ThisWorkbook.Path
xFichier = "GS-1.zip"
xInternet = "http://www.donpepe.hebergratuit.net/Maj/GS/" & xFichier
xLocal = xRacine & "\" & xFichier
Call TelechargerFichierInternet(xInternet, xLocal)
If TelechargerFichierInternet(xInternet, xLocal) = True Then
MsgBox "Le téléchargement a réussi..."
Else
MsgBox "Une erreur s'est produite lors du téléchargement..."
Exit Sub
End If
End Sub |
Partager