Lister les fichier Xls d un repertoire donnée

[kettou]

Bonjour à tous,
Voila mon probléme est le suivant:
Je voudrai lister les fichier xls d'un repertoire donnée sous vba et et les mettre dans une liste box sachant ke ce repertoire est suceptible d'etre incrementer par d autre fichier plustard.
Est ce que qq pourrait m aider.
Merci

 

[RENAUDER]

Re : Lister les fichier Xls d un repertoire donnée

Bonjour,

Public NameSansExtension As String
Private Sub UserForm_Activate()
    Dim F
    Dim LongFilename As String
    With Application.FileSearch
        .NewSearch
        .LookIn = "C:\Excel\perso"
        .Execute
        On Error Resume Next
        For Each F In .FoundFiles
            LongFilename = F
            ShortFilename (LongFilename)
           Me.ComboBox1.AddItem NameSansExtension
        Next F
    End With
   UserForm1.Show
End Sub
Function ShortFilename(LongFilename As String) As String
    For i = Len(LongFilename) To 1 Step -1
        If Mid(LongFilename, i, 1) = "\" Then Exit For
    Next i
    ShortFilename = Mid(LongFilename, i + 1, Len(LongFilename))
    NameSansExtension = Mid(ShortFilename, 1, Len(ShortFilename) - 4)
End Function

 

[kettou]

Re : Lister les fichier Xls d un repertoire donnée

oula!! d abord Merci pour la reponse, c'est possible d avoir un peu plus d'explication pour le code je suis encore novice en vba merci

 

[RENAUDER]

Re : Lister les fichier Xls d un repertoire donnée

Bonjour,

C'est du code qui n'est pas de moi et tu le prends comme il est car je ne saurais pas tout t'expliquer.
Tu vas voir dans l'aide pour les termes qui te posent problèmes.

 

[kettou]

Re : Lister les fichier Xls d un repertoire donnée

Merci pour cette aide ca marche impec.
bonne journée