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]

Re : liste déroulante pour classeur

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]

Re : liste déroulante pour classeur

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

 

[RENAUDER]

Re : liste déroulante pour classeur

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]

Re : liste déroulante pour classeur

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