fic = Dir("C:\*.xls" ) Do MsgBox (fic) If ((Left(fic, 1) > "1" And Left(fic, 1) < "9" ) _ And (Mid(fic, 2, 1) > "1" And Mid(fic, 2, 1) < "9" ) _ And (Mid(fic, 3, 1) > "1" And Mid(fic, 3, 1) < "9" ) _ And (Mid(fic, 4, 1) = "_" ) _ And (Mid(fic, 5, 1) > "A" And Mid(fic, 5, 1) < "z" ) _ And (Mid(fic, 6, 1) > "A" And Mid(fic, 6, 1) < "z" ) _ And (Mid(fic, 7, 1) = "_" ) _ And (Mid(fic, 8, 1) > "1" And Mid(fic, 8, 1) < "9" ) _ And (Mid(fic, 9, 1) > "1" And Mid(fic, 9, 1) < "9" ) _ And (Mid(fic, 10, 1) = "_" ) _ And (Mid(fic, 11, 1) > "A" And Mid(fic, 11, 1) < "z" ) _ And (Mid(fic, 12, 1) > "A" And Mid(fic, 12, 1) < "z" ) _ And (Mid(fic, 13, 1) > "A" And Mid(fic, 13, 1) < "z" )) Then
' On a trouvé, on sort de la boucle Exit Do End If a = Dir 'suivant Loop MsgBox (fic)
|