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

R
  • Question
Microsoft 365 Fichier organisation volley-ball
Réponses
1
Affichages
273
halecs93
halecs93
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
2 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
813
Heim
H
C
  • Question
XL 2010 Enlever #NOMBRE
Réponses
2
Affichages
939
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
1 K
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
T
  • Question
XL 2013 Recherche prestataire pour refaire planning horaire
Réponses
0
Affichages
729
Tarrain
T
D
  • Question
perte des donnes lors de lancement de macro
2 3
Réponses
33
Affichages
4 K
devimen2
D
CISCO
  • Question
XL 2010 VBA : Transfert de données de diverses feuilles à partir de listes différentes
2
Réponses
25
Affichages
3 K
job75
job75
S
  • Question
VBA - Copie de données d'un fichier excel fermé en read-only selon une condition
Réponses
0
Affichages
1 K
schrom007
S
C
  • Question
Update table accès depuis excel via recordset Ado
Réponses
3
Affichages
3 K
ceddeg
C
S
  • Question
Copie de cellules automatique sur une feuille différente
Réponses
5
Affichages
978
Sebosteo
S
J
  • Question
Modifier liens hypertexte
Réponses
2
Affichages
4 K
JL83
J
K
  • Question
XL 2010 VBA; ouvrir une feuille en fonction d'une case
Réponses
5
Affichages
2 K
Modeste
Modeste
Y
  • Question
Macro filtre avec condition extract 2 le retour du filtre perdu.
Réponses
4
Affichages
1 K
Yukkah
Y

Membres actuellement en ligne

12 membres et 190 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
315 260
Messages
2 117 856
Membres
113 354
dernier inscrit
caillet