Microsoft 365 Transfert FTP

tbft

tbft

XLDnaute Accro
Bonjour

Je souhaite réaliser une macro pour gérer des importations de fichier.
J'ai essayé avec les indications données par les posts:
https://www.excel-downloads.com/threads/liste-des-fichiers-sur-ftp.20036566/page-3#posts
https://www.excel-downloads.com/threads/bpautal.20043591/#post-20316594
J'ai essayé de télécharger le fichier : ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf
Mais raté.....
Pouvez-vous m'aider, s'il vous plait?
Pour information en ce qui concerne le FTP, je part de ..... 0
D'avance merci.
Cordialement
 
Solution
fanch55
Essayez avec le code modifié ci-dessous :
( il y a juste un message supplémentaire, peut-être sera-t-il parlant ...)
VB: 
Sub ListRemoteFolder(Target_Folder)
Dim HFind        As Long
    
    If Not [Dossiers].ListObject.DataBodyRange Is Nothing _
    Then [Dossiers].ListObject.DataBodyRange.Delete
    [Dossiers].Interior.ColorIndex = xlNone
    If Not [Fichiers].ListObject.DataBodyRange Is Nothing _
    Then [Fichiers].ListObject.DataBodyRange.Delete
    
    Select Case True
    Case FtpSetCurrentDirectory(HFtp, Target_Folder) = 0: MsgBox Target_Folder & " non trouvé", vbCritical
    Case Else
        Ftp.Data.cFileName = Space(MAX_PATH)
        HFind = FtpFindFirstFile(HFtp, "*.*", Ftp.Data, 0, 0)
        If HFind Then
            Do
                Buffer =...
Trier par date Trier par votes

Discussions similaires

V
  • Résolu(e)
Microsoft 365 [VBA Excel] Problème pour Réinitialiser les filtres : fonctionne une ou deux fois...
2
Réponses
15
Affichages
1 K
VirginieG
V
D
  • Résolu(e)
XL 2016 Gérer les ex-aequo avec INDEX + EQUIV
Réponses
5
Affichages
2 K
Ddken
D
H
  • Résolu(e)
Microsoft 365 Remplacer ref d'un tableau par un autre - VBA
Réponses
2
Affichages
667
Heim
H
C
  • Question
XL 2010 Enlever #NOMBRE
Réponses
2
Affichages
788
CATPLUS
C
K
  • Question
Microsoft 365 Création d'un journal d'écriture à partir d'un tableau des ventes
2
Réponses
15
Affichages
2 K
CARTER92
C
jeanmi
  • Question
XL 2010 Copie/coller un dossier avec tous ces sous dossiers et fichier vers un autre emplacement
Réponses
2
Affichages
838
jeanmi
jeanmi
6
  • Question
Autres Fichier Excel en réseau
Réponses
6
Affichages
1 K
_Thierry
_Thierry
L
  • Résolu(e)
XL 2019 Fichier inventaire
Réponses
7
Affichages
3 K
Lonire
L
B
  • Question
XL 2010 VBA - Uploader un dossier sur ftp
Réponses
9
Affichages
4 K
Bens7
B
A
  • Question
Gestion de stock / emprunt de matériel festival
Réponses
3
Affichages
3 K
abeniciogonzales
A

Membres actuellement en ligne

12 membres et 91 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 228
Messages
2 086 420
Membres
103 205
dernier inscrit
zch