XL 2013 Liste déroulante proposant les fichiers Excel au même niveau du dossier.

CICR

XLDnaute Nouveau
Bonjour,
Existe t'il une possibilité de lister les fichiers Excel d'un dossier, (un fichier par cellule).
Mon projet est de pouvoir par la suite qu'un tableau puisse accéder aux informations contenu dans ces fichiers.
Les noms de fichiers pouvant être différents, s'ils sont listés, me faciliterai le traitement d'accès aux fichiers.

Remerciements
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour CICR et bienvenu sur XLD,
En PJ un essai. En A1 mettre le chemin du dossier, par appui bouton la liste des fichiers XL est construite, avec :
VB:
Sub ListeFichiers()
    Dim Chemin$, Fichier$, L%
    Chemin = [A1]: If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
    Fichier = Dir(Chemin & "*.xls*")
    L = 1: [A:A].ClearContents: [A1] = Chemin
    Do While Len(Fichier) > 0
        L = L + 1: Cells(L, "A") = Fichier
        Fichier = Dir()
    Loop
    Columns.AutoFit
End Sub
 

Pièces jointes

  • Liste fichiers.xlsm
    17.6 KB · Affichages: 10

CICR

XLDnaute Nouveau
Bonjour CICR et bienvenu sur XLD,
En PJ un essai. En A1 mettre le chemin du dossier, par appui bouton la liste des fichiers XL est construite, avec :
VB:
Sub ListeFichiers()
    Dim Chemin$, Fichier$, L%
    Chemin = [A1]: If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
    Fichier = Dir(Chemin & "*.xls*")
    L = 1: [A:A].ClearContents: [A1] = Chemin
    Do While Len(Fichier) > 0
        L = L + 1: Cells(L, "A") = Fichier
        Fichier = Dir()
    Loop
    Columns.AutoFit
End Sub
Merci beaucoup, j'essaierai quand je reprendrai mon projet semaine prochaine.
 

Discussions similaires