Salut
Ajout le composent : Microsoft Internet Transfer Control 6.0 Tu en places un sur une feuille, puis dans le code :
z$="http://www.site.com/soft/software.exe" b() = Form1.Inet1.OpenURL(, icByteArray)
If UBound(b) = -1 Then Exit Sub
open "sauver.exe" for output as #1 put #1, ,b(); close
Question en direct : int19h@usa.net
a+
|