Repérer un fichier sur disque dur... :)

If NomFichier Like "toto*" then

Sub a()
Dim i As Long, j As Long, t()
With Application.FileSearch
    .NewSearch
    .LookIn = "C:\TEMP"
    .SearchSubFolders = False
    .Filename = "toto*"
    .FileType = msoFileTypeExcelWorkbooks '4
     If .Execute() > 0 Then
        MsgBox "There were " & .FoundFiles.Count & " file(s) found."
        ReDim t(1 To 3)
        For i = 1 To .FoundFiles.Count
           t(i) = Split(.FoundFiles(i), "v")(UBound(Split(.FoundFiles(i), "v")))
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With
For j = 1 To 3
MsgBox Split(t(j), ".")(0)
Next
End Sub

Sub Ah_lala_lala()
Set fs = CreateObject("Scripting.FileSystemObject")
fichier = Dir("C:\Test\Toto_rev*.xls")
x = 0
On Error Resume Next
Do While fichier <> ""
    sF = fs.GetBaseName(fichier)
    Ta = Split(sF, "rev")
    If CInt(Ta(1)) > x Then x = CInt(Ta(1))
    fichier = Dir
Loop
MsgBox x

End Sub

Sub ab() [COLOR=Green]'le pinaillage dans son excès[/COLOR] :o
Dim i As Long, j As Long, k As Long, t(), LE_MAX, Ton_Chiffre As Integer
With Application.FileSearch
    .NewSearch
    .LookIn = "C:\TEMP"
    .SearchSubFolders = False
    .Filename = "toto*"
    .FileType = msoFileTypeExcelWorkbooks '4
     If .Execute() > 0 Then
        ReDim t(1 To .FoundFiles.Count)
        For i = 1 To .FoundFiles.Count
           t(i) = Split(.FoundFiles(i), "v")(UBound(Split(.FoundFiles(i), "v")))
        Next i
    Else
        MsgBox "Aucun fichier n'a été trouvé."
    End If
End With
LE_MAX = Split(t(UBound(t)), ".")(0)
Ton_Chiffre = MsgBox(vbTab & Val(LE_MAX) & Chr(13) & Chr(13) & " Un petit calcul pour finir ? ", vbInformation + vbYesNo, "Dernier numéro de révision")
If Ton_Chiffre = vbYes Then
For k = 1 To Val(LE_MAX)
MsgBox "On peut calculer avec ton MAX, non ..." & Chr(13) & vbTab & LE_MAX & "^" & k & " = " & LE_MAX ^ k, vbExclamation, "Salut , A+"
Next k
End If
End Sub