Bonjour,

Il suffit d'ajouter ",0" à la fin de ta derniére ligne :


Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run "ftp -n -s:c:\temp.txt", 0