Inet1.AccessType = icDirect Inet1.Protocol = icFTP Inet1.RemotePort = "21" Inet1.RequestTimeout = (Comme tu veux) Inet1.URL = (Utilisateur) & ":" & (Mot de passe) & "@" & (Adresse du serveur FTP) Inet1.Execute , "PUT " (Chemain local du fichier a envoyé) " " (Chemain du dossier FTP de déstination) While Inet1.StillExecuting DoEvents Wend Execute , "CLOSE"