lister des fichiers

[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 ;-)

++

 

[Cousinhub]

Re : lister des fichiers

Bonsoir,
il aime bien ton "With...", ce qu'il n'aime pas c'est .FindFile
Excel 2007 a supprimé ce langage de son vocabulaire.
Faut attendre les programmeurs pour savoir par quoi le remplacer, une autre approche :

f = Dir("*.txt", vbNormal)
Do While Len(f) > 0
If f = "toto???.txt" Then MsgBox "Yes"
f = Dir
Loop

 

[MichelXld]

Re : lister des fichiers

bonjour

Tu peux aussi utiliser cette autre solution de substitution pour Excel2007:

https://www.excel-downloads.com/threads/classefilesearch-pour-excel2007.77650/



Bonne journée
MichelXld