Excel>lister les Fichiers d'un dossier dans une Listbox

cs_Willis Messages postés 28 Date d'inscription vendredi 22 novembre 2002 Statut Membre Dernière intervention 30 juin 2009 - 8 juin 2004 à 10:27
cs_Willis Messages postés 28 Date d'inscription vendredi 22 novembre 2002 Statut Membre Dernière intervention 30 juin 2009 - 8 juin 2004 à 15:36
Voilà mon code mais mon problème c'est qu'il y a l'arborescance complète dans la listbox, j'aimerais bien y afficher que le nom du fichier...
Une ptite indication?
Merci.

Application.FileSearch.LookIn = "C:\Documents"
Application.FileSearch.FileType = msoFileTypeExcelWorkbooks
    
        If Application.FileSearch.Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
                
                For i = 1 To Application.FileSearch.FoundFiles.Count
                        ListBox1.AddItem (Application.FileSearch.FoundFiles(i))
                Next i
                
        End If

2 réponses

cs_aKheNathOn Messages postés 575 Date d'inscription dimanche 23 décembre 2001 Statut Membre Dernière intervention 23 octobre 2012
8 juin 2004 à 12:06
Essayes ça :


Dim Nom() as String
Application.FileSearch.LookIn = "C:\Documents"
Application.FileSearch.FileType = msoFileTypeExcelWorkbooks

If Application.FileSearch.Execut (SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then

  For i = 1 To Application.FileSearch.FoundFiles.Count
    Nom = Split(Application.FileSearch.FoundFiles(i), "")
    Call ListBox1.AddItem (Nom(UBound(Nom)))
  Next i

End If



.:: aKheNAtHoN ::.
0
cs_Willis Messages postés 28 Date d'inscription vendredi 22 novembre 2002 Statut Membre Dernière intervention 30 juin 2009
8 juin 2004 à 15:36
C'est Nikel
Merci
0