Jul 09 2020 04:13 AM
Bonjour à tous,
J'utilise depuis longtemps les fonctions de gestion de fichiers via FTP pour mettre à jour et récupérer des données sur un site. Le code tourne actuellement sous Windows 7 avec le VBA d'Access 2003. Je voudrais migrer la base en W10 sous Access 2019: Tout fonctionne parfaitement sauf le transfert des fichiers par FTP.
La connexion à internet et au serveur ftp se passent bien. Le code renvoie un message d'erreur 12002 lors de l'appel de la fonction FtpPutFile.
Une autre bizarrerie existait déjà en Access 2003 sous VBA mais j'avais pu la contourner:
La fonction FtpPutFile revoie un booleen à "vrai " quand tout s'est bien passé. J'avais traité l'erreur avec un code de ce type:
if not FtpPutFile ...... then
traitement erreur
end if
Sauf que ca ne marchait pas car "not vrai" renvoie "vrai" !!!
J'ai dû faire une fonction MyNot qui inverse un booleen et transformer le code en
if MyNot ( FtpPutFile ......) then
traitement erreur
end if
Il n'y a peut-être pas de lien entre ces deux dysfonctionnements mais ça traduit à mon avis un truc pas très propre de ma part.
Je joins le code Ftp et une partie du code de la procédure appelante.
Merci de votre aide
Gilbert MACHU