Sub cherchefichier()
Const Chemin = "T:\ST\INSTALLATIONS INDUSTRIELLES\CRA - REPORTING\essai macro"
Dim Nomchercher As String
Dim oFs As Variant
Dim Nomfichier As String
Dim i As Integer
Set oFs = Application.FileSearch
Nomchercher = "T:\ST\INSTALLATIONS INDUSTRIELLES\CRA - REPORTING\essai macro"
With oFs
.LookIn = Chemin
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
MsgBox "il y a " & .FoundFiles.Count & " fichier(s) de trouvé"
Else
MsgBox "aucun fichier"
End If
End With
End Sub