Afficher fichiers d'un dossier contenant

Bonjour,

Je n'arrive pas à afficher les fichiers d'un dossier (il y en a beaucoup) avec pour exemple :

123-Toto-titi.xls

789-Toto-tata.xls

589-Toto-titi.xls

888-Toto-tata.xls

Je voudrais récupérer uniquement les fichiers avec -tata.xls

J'ai juste récupéré ceci sur un site mais je crains qu'il est plutôt "Lourd" et pas complet.

    Dim Tbl() As String
    Dim I As Integer
    Dim Chemin As String
    Columns("A:A").Select
    Selection.ClearContents
    Range("A1").Select
    Chemin = Dossier
    Tbl = EnumFichiers(Chemin)
    If Not (Not Tbl) Then
         For I = 1 To UBound(Tbl)
             Cells(I, 1) = Left(Tbl(I), InStrRev(Tbl(I), ".") - 1)
Cells(I, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        Chemin & "/" & Tbl(I), TextToDisplay:=Tbl(I)

         Next I

Merci pour votre aide.

Eric.L

Bonjour Eric,

Pour moi, il faut juste faire un test dans ta boucle

 For I = 1 To UBound(Tbl)
    If UCase(Right(Tbl(I), 9)) = "-TATA.XLS" Then
      Cells(I, 1) = Left(Tbl(I), InStrRev(Tbl(I), ".") - 1)
      ActiveSheet.Hyperlinks.Add Anchor:=Cells(I, 1), Address:= _
          Chemin & "/" & Tbl(I), TextToDisplay:=Tbl(I)
    End If
  Next I

@+

Parfait Bruno, merci , juste un petit truc et se sera nickel

Le fait qu'il m'affiche les fichiers que je demande,

comment éviter qu'il me fasse des cellules vide (logique) ?

Re,

Il faut intégrer un index de ligne dans ce cas et l'incrémenter seulement dans le If... Endif

Est-ce que c'est clair ?

Oui facile et ça marche :)

Merci beaucoup à toi et ta rapidité

Rechercher des sujets similaires à "afficher fichiers dossier contenant"