Récupération nom de tous les fichiers d'un dossier

Question

Bonjour, sous VBA, quelle-est le code qui permet de r&#233;cup&#233;rer tout les noms de fichiers dans un dossier sp&#233;cifique ? J'ai essay&#233; &#231;a :

Sub recherche_fichiers()
' Ce programme permet de rechercher tous les fichiers Excel
' du r&#233;pertoire sp&#233;cifi&#233; et de les copier dans une feuille de calcul.
Dim I As Long
  
  Application.ScreenUpdating = False
  With Application.FileSearch
    .NewSearch
    .FileType = msoFileTypeExcelWorkbooks
    .LookIn = "S:	raitement\importation"
    .SearchSubFolders = True
    .Execute
    With .FoundFiles
      For I = 1 To .Count
        ActiveSheet.Cells(I, 1) = .Item(I)
      Next I
    End With
  End With
  Range("A1").Sort [a1]
End Sub

Et dans une autre proc&#233;dure j'ai utilis&#233; un truc avec la fonction Gauche mais &#231;a &#224; pas l'air de marcher. Tous mes fichiers sont des "S:	raitement\importation". En fait j'essaye de faire un programme permettant de r&#233;cup&#233;rer les donn&#233;es contenu dans chaque fichier pour les traiter sur une nouvelle feuille.
Note : le nombre de fichiers augmente &#224; chaque fois au fil du temps (1 ou 2 en plus chaque jour &#224; peu pr&#232;s).

Merci d'avance pour vos r&#233;ponses

01Dawi · Answer

Perso la derniere fois que j'ai eu besoin de ca j'me suis pas cass&#233; trop le cul :
j'ai utilis&#233; un filelistbox que j'ai mis evidemment en visible=false
je le bloque sur le r&#233;pertoire par 

File1.Path=...
le nombre de fichier dans ce r&#233;pertoire par
nbFi=File1.Listcount
Et le nom de chaque fichier par
NomFi=File1.List(i)

voila
j'espere que c'est faisable sous vba

C'est l'histoire balade
du Kangourou Nomade

Igota · Answer

OK merci j'vais tester &#231;a lundi, car l&#224; faut profiter du weekend !! :)





Qui saute toujours plus

haut pour pi&#233;tiner les l&#232;ches fachos !

Igota · Answer

Apparement c'est pas possible, sous VBA les donn&#233;es d'une liste ne peuvent provenir que de cellules, dponc &#231;a me servirais pas &#224; grand chose.
Par contre j'ai une autre question, dans ce code :

Sub recherche_fichiers()
Dim i As Long, j As Long
Dim nbcells As Integer
'On r&#233;cup&#232;re les chemins d'acc&#232;s aux fichiers
  Application.ScreenUpdating = False 
  With Application.FileSearch '???
    .NewSearch
    .FileType = msoFileTypeExcelWorkbooks 
    .LookIn = "S:	raitement\importation" 
    .SearchSubFolders = True 
    .Execute
    With .FoundFiles 
      For i = 1 To .Count 
        ActiveSheet.Cells(i, 1) = .Item(i)
      Next i
    End With
  End With
  Range("A1").Sort [a1] 
  
'On va r&#233;cup&#233;rer le num&#233;ro du produit ainsi que la date &#224; partir de la 1&#232;re colonne
Range("a1:a65536").Select
nbcells = 0
For Each c In Selection
If c.Value <> "" Then
nbcells = nbcells + 1
End If
Next c
      For j = 1 To nbcells
        ActiveSheet.Cells(j, 2) = "=MID(RC[-1],27,4)"
        ActiveSheet.Cells(j, 3) = "=MID(RC[-2],32,6)"
      Next j
End Sub

Seulement je voudrais ins&#233;rer une ligne de titre au tout d&#233;but mais quand je fais commencer mes 2 boucles i et j &#224; 2 (For i  = 2 to .count pour la 1&#232;re), &#231;a me zappe toujours la 1&#232;re valeur (= le 1er fichier). Comment faire ? J'suis s&#251;r que c'est un truc tout con en plus mais j'ai beau tourner ma boucle dans tous les sens, j'arrive pas &#224; trouver.

Récupération nom de tous les fichiers d'un dossier

3 réponses

Discussions similaires