Bonjour,
J'ai une function qui me permet de télécharger des fichiers qui fonctionne très bien sur de images.
Quand je veux télécharger un fichier .zip il le télécharge bien mais à l'ouverture j'ai un beau message comme quoi le fichier est endommager.
Hors quand je vais directement dans chrome le fichier est très bien.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
merci a vous pour votre aide