Export FTP a partir de fichiers créés dans le code

Bonjour je fais une export de fichier txt vers un système mainframe en
FTP.
le nom de l'utilisateur et son mot de passe sont saisis dans un
formulaire, et vont alimenter un fichier txt de commandes ftp.
En fait dans mon code vba, je crée le fichier .bat et le fichier txt
de commandes ftp, et je les supprime à la fin afin que le user et mot
de passe ne soient pas visibles.
Et ben, ça marche pas (sauf en debug), en fait c'est comme si mon
fichier .bat n'existait pas, il me dit qu'il n'y a pas de commande.
Alors que si je ne supprime pas le fichier en fin de macro, la fois
suivante ça fonctionne.
J'ai pensé que c'était un problème de lock des fichiers, alors j'ai
déporté la création des fichiers dans une fonction annexe, mais ça ne
change rien
Je ne sais pas si c'est bien clair, mais si quelqu'un a une idée
Merci
Mon bout de code :


Function Export_fichier()

' Form de saisie user et MdP
DoCmd.OpenForm stDocName, acNormal, , , , acDialog

ChDir (Chemin)
' Appel fonction de création fichiers bat et txt
Constit_Fichiers

ExportBatch = "cmd.exe /k " & Chemin & Batch
RetBatch = Shell(ExportBatch, vbMinimizedNoFocus)

Do While Dir("Temp", vbDirectory) <> vbNullString
Loop

Kill Chemin & Batch
Kill Chemin & FTPCMD
DoCmd.Echo True

End Function


Function Constit_Fichiers()

Open Chemin & Batch For Output Lock Write As #1
Print #1, "cls"
Print #1, "mkdir Temp"
Print #1, "cd " & Chemin
Print #1, "@FTP -i -d -s:" & FTPCMD
Print #1, "rd Temp"
Close #1

Open Chemin & FTPCMD For Output Lock Write As #1
Print #1, "open"
Print #1, "site.prod.fr"
Print #1, User
Print #1, Pass
Print #1, "hash"
Print #1, "put ETAT_fichier.txt 'FICHIER.MAINFRAME'"
Print #1, "bye"
Close #1

End Function

---

• Partager ce contenu :