Bonjour, Salut Steelson, James !
A essayer :
Sub RechercheFichierPlusGrand()
Dim fich, fsse$, fr$, frsse$
fich = Dir("E:\Documents\*.*") 'mettre le bon...
Do While fich <> ""
fich = Split(fich, "\")
fich = fich(UBound(fich))
fsse = Left(fich, InStrRev(fich, ".") - 1)
If StrComp(fsse, frsse, vbTextCompare) = 1 Then
frsse = fsse: fr = fich
End If
fich = Dir()
Loop
MsgBox "Le fichier cherché est : " & fr
End Sub
Cordialement.