Rapport de message :*
 

Re: En VBA gérer la boite windows 'Télécharger un fichier'

Titre du sujet : Re: En VBA gérer la boite windows 'Télécharger un fichier'
par JackyAmiens le 25/07/2011 16:09:25

Bonjour,

Après un temps de réflexion, je viens de refaire une tentative avec l'API de Guy, grand merci à lui.

Et le téléchargement du fichier via le lien fonctionne correctement

Déclaration de l'API
Fonction de téléchargement (à améliorer)

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

Public Function Telecharger(url, FicLocal)
 Dim chag As Long
 'On appelle la fonction api de téléchargement
     chag = URLDownloadToFile(0, url, FicLocal, 0, 0)
     PauseWait (10) 'ajuster en fonction du temps de téléchargement. Il serait bon de faire un contrôle de présence du fichier
End Function

Vive la patience...