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

sylvanu à dit:

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

Cliquez pour agrandir...