Nom classeur dans un repertoire

Question

SVP je veux extraire les noms des classeurs qui se trouve dans un repertoire et les mettre dans une var . c-a-dire il extrait le nom du premier classeur, le met dans une var, apres il passe au deuxieme, apres au troisieme ainsi de suite jusqu'a fin des classeur de ce repertoire. comment je peux le faire svp? Merci...

Invité · Answer

Quel type de fichier, .TXT, .XLS .... A te relire Mytå...

Invité · Answer

Re le forum

Un début de solution qui liste les fichiers (XLS) sur la feuille

'Liste des fichiers d'un répertoire
'Laurent Mortézai, mpfe
Sub ListerFichiers()
   Dim Fichier As String
   Chemin = "C:\Excel\*.xls"
   Fichier = Dir(Chemin)
   Do While (Len(Fichier) > 0)
     i = i + 1
     Cells(i, 1) = Fichier 'NomFichierSansExtension(Fichier)
     Fichier = Dir()
   Loop
End Sub
Function NomFichierSansExtension(s As String) As String
   For i = Len(s) To 2 Step -1
      If Mid(s, i, 1) = "." Then
         NomFichierSansExtension = Mid(s, 1, i - 1)
         Exit Function
      End If
   Next
   NomFichierSansExtension = s
End Function

Mytå

Invité · Answer

Re le forum Rien ne sert de doublonner les ficelles https://forum.excel-pratique.com/viewtopic.php?t=8619 Mytå...