je ne sais pas si vous pourrez m'aider me je tente quand même.
Voilà mon problème : j'essaye de télécharger depuis une macro Word un document Word présent sur le serveur FTP de mon site. Mon code ne fonctionne pas et je ne comprends pas.
Si vous pouvez regarder si vous voyez une erreur
Code : Tout sélectionner
Sub envoie_fichier()
'Vérifier la connection à internet
InternetOK = InternetOpen("ftp.franceserv.fr", 0, vbNullString, vbNullString, 0)
If InternetOK = 0 Then
MsgBox "connection internet impossible"
GoTo fin
End If
'Vérifier l'accès ftp
FtpOK = InternetConnect(InternetOK, "ftp.franceserv.com", 21, "identifiant", "motdepasse", 1, 0, 0)
'vérifier le dossier distant
Select_DossierDistant = FtpSetCurrentDirectory(FtpOK, "/projettutavocat.franceserv.com/documents/")
If Select_DossierDistant = 0 Then
MsgBox "impossible de trouver le répertoire distant "
GoTo fin
End If
'transfert du fichier
succès = FtpGetFile(FtpOK, " /projettutavocat.franceserv.com/documents/publi.csv", fichierlocal, True, 0, &H0, 0)
'fin affichage fenêtre d'attente
If succès Then
Result = "Le fichier a été correctement récupéré "
MsgBox Result