çç ç |    Page 10 of 10    | è èè

' ************************************************************

' Lister les fichiers d'un répertoire donné

' et les afficher dans une ComboBox ou Listbox.

' Seul le nom du fichier sera affiché (Function ShortFilename)

' ************************************************************

Private Sub UserForm_Initialize()

     Dim F

     Dim LongFilename As String

     With Application.FileSearch

          .NewSearch

          .LookIn = "C:\Excel\Traitement des déchets"

          .Execute

          On Error Resume Next

          For Each F In .FoundFiles

               LongFilename = F

               Namefile = ShortFilename(LongFilename)

               Me.ComboBox1.AddItem Namefile

          Next F

     End With

End Sub



çç ç |    Page 10 of 10    | è èè