XL 2019 Listing fichiers dans dossier

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Solution
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...
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
522
Retour