liste déroulante pour classeur

[kenshin63112]

Salut,
je m'explique, je suis entrain de faire une programme VBA pour une gestion documentaire. Je bloque sur un point, je souhaiterais mettre dans un Userform une liste déroulante qui me liste tous les classeurs excel qu'il y a dans un dossier (endroit spécifique).

merci

[MichelXld]

bonsoir


Tu peux tester

    Dim Chemin As String, Fichier As String
    
    'Définit le répertoire contenant les fichiers
    Chemin = "C:\dossier\"
    
    'Boucle sur tous les fichiers xls du répertoire.
    Fichier = Dir(Chemin & "*.xls")
    'Utilise la syntaxe suivante pour boucler sur tous les types de fichiers:
    'Fichier = Dir(Chemin & "*.*")
    
    Do While Len(Fichier) > 0
        ComboBox1.AddItem Chemin & Fichier
        Fichier = Dir()
    Loop

Bonne soirée
MichelXld

[kenshin63112]

salut,
merci pour ton aide mais ça ne focntionne pas

[RENAUDER]

Bonjour,

Ce code fonctionne chez moi en XL2007

Private Sub UserForm_Initialize()
    unRép = Dir("C:\Excel\*.xls", vbDirectory)
    Do While unRép <> ""    ' Commence la boucle.
        I = I + 1
        ReDim Arr(1 To I)
        unRép = Dir
        Arr(I) = unRép
        Me.ComboBox1.AddItem Arr(I)
    Loop
End Sub

[kenshin63112]

salut,
merci tu es un dieu , ca fonctionne parfaitement
merci à tous les deux