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
|