[Jx7]

Bonjour,

Ca fait longtemps que je suis pas venu poser une question mais j'utilise régulièrement ce forum et j'y trouve en général ce que je cherche =)

là c'est pas le cas. Voici mon problème:

J'aimerais lister les noms de fichiers respectant certains critères.

Je pensais qu'avec ceci ça fonctionnerait:

Private Sub Lister_fichiers()

Dim nbre_fichiers As Integer
Dim tableau As Variant

With Application.FindFile
 .LookIn = CurDir
 .FileName = "toto???.txt"
 tableau(0) = .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending)

 For i = 1 To tableau
  For j = Len(.FoundFiles(i)) To 1 Step -1
   If Mid(.FoundFiles(i), j, 1) = "\" Then
    tableau(i) = Mid(.FoundFiles(i), j + 1)
    Exit For
   End If
  Next j
 Next
End With

End Sub

mais ce n'est pas le cas :/ il aime pas mon "with"...

J'ai l'impression que c'est depuis que je suis sous Excel 2007...

quelqu'un a une idée?

merci par avance ;-)

++