Bonjour,

avec ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Sub telecharge()
adr = StrConv("http://www.essai.fr/essai.zip", vbUnicode)
DoFileDownload adr
End Sub
je télécharge bien le fichier essai.zip...

Cependant, j'aurai aimé le télécharger sans l'ouverture de la boîte de dialogue "Enregistrer sous...", c'est à dire que je connais le répertoire où je veux l'enregistrer, et j'aimerai que le téléchargement se passe sans demande de ce répertoire.

Merci, et joyeuses Pâques...