Bonjour,
le transfert d'un fichier par FTP se fait très rapidement (je vois le fichier tout de suite sur le serveur) mais Access ne rend la main que plusieurs minutes après le transfert. Je ne vois pas ce qui cloche.
Message du debug :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Debug.Print "changement de répertoire OK : " & Time() 'Envoi du fichier local Me.txtFichierModele.Value sur le serveur succes = FtpPutFile(hwndConnect, fichierLocal, Me.txtFichierModele.Value, &H0, 0) If succes Then Debug.Print "Fichier transféré : " & Time() MsgBox "Le fichier '" & Me.txtFichierModele.Value & "' est transféré sur le serveur." Else msgErreur = fichierDistant & " n'a pas pu être transféré. Erreur : " & err.LastDllError GoTo Erreur_Connexion_ouverte End If
changement de répertoire OK : 16:57:56
Fichier transféré : 17:03:11
Partager