XL 2019 Listing fichiers dans dossier

J

Julien_m

XLDnaute Junior
Bonjour à tous,

j'ai trouvé sur internet un code vba (https://excel.developpez.com/faq/?page=FichiersDir) qui permet presque de faire ce que je veux.
Au départ il liste verticalement l'ensemble des fichiers dans un dossier.
J'ai modifié ça en le faisant lister horizontalement mais j'aimerais qu'il s'arrête après 2 fichiers par exemple et qu'il ne déborde pas sur les colonnes plus loin.
Une fois qu'il m'a listé les 2 fichiers du premier chemin en ligne 1, qu'il passe à la ligne 2 avec un nouveau chemin d'accès.

J'ai essayé de changer ça en boucle for mais je n'arrive pas à convertir la boucle loop en boucle for... 😕

Si quelqu'un peut m'éclaircir sur ce point je suis preneur :)

à bientôt,

Ju
 

Pièces jointes

  • Liste des fichiers dans dossier.xlsm
    14.9 KB · Affichages: 17
Solution
job75
Il manquait le test If r <> "" Then :
VB: 
Sub ListesFichiers()
Dim col1, col2, i%, r As Range, fichier$, n%
col1 = Array("P", "V", "AB", "AQ") 'colonnes contenant les chemins des dossiers
col2 = Array("Q", "W", "AC:AD", "AR:AV") 'colonnes des résultats
Application.ScreenUpdating = False
With Sheets("Feuil1")
    For i = 0 To UBound(col1)
        Set r = Intersect(.Columns(col1(i)), .UsedRange)
        If Not r Is Nothing Then
            For Each r In r
                If Trim(CStr(r)) <> "" Then
                    fichier = Dir(CStr(r))
                    With Intersect(.Columns(col2(i)), r.EntireRow)
                        .ClearContents 'RAZ
                        n = 0
                        While fichier <> "" And n < .Count...
Trier par date Trier par votes

Discussions similaires

D
  • Question
Microsoft 365 Couper Coller Fichiers en VBA
Réponses
3
Affichages
296
patricktoulon
patricktoulon
T
  • Résolu(e)
XL 2010 VBA - Lister fichiers et décortiquer le nom des fichiers dans colonne A et B
Réponses
5
Affichages
157
sylvanu
sylvanu
W
  • Question
Microsoft 365 VBA: Combiner/Compiler des fichiers PDF dans un chemin existant dans ordre
Réponses
2
Affichages
212
kiki29
kiki29
E
  • Question
XL 2013 Déployer les "petites croix d'un TCD"
Réponses
9
Affichages
326
erics83
E
Nico2978
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
183
Nico2978
Nico2978
Q
  • Résolu(e)
Microsoft 365 Exécutions directes différentes vs "pas à pas"
Réponses
2
Affichages
213
Quentin2106
Q
F
  • Résolu(e)
XL 2019 Power query - Réunir le contenu de plusieurs fichiers xls dans un seul
Réponses
10
Affichages
1 K
Bernard_XLD
Bernard_XLD
N
  • Question
XL 2016 Macro chargement liste arborescence, copier coller fichiers
Réponses
9
Affichages
384
Nermal64
N
P
  • Question
Microsoft 365 VBA - Enregistrer un fichier en pdf dans un dossier dont on ne connait que les 4 premiers caractères
Réponses
2
Affichages
225
phil75016
P
D
  • Question
Microsoft 365 Changement lien hypertexte en fonction nom feuille Excel
Réponses
1
Affichages
516
gbinforme
G

Membres actuellement en ligne

4 membres et 74 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 206
Messages
2 086 219
Membres
103 158
dernier inscrit
laufin