Sub RechercheFichier()
Dim chemin$, nomfich$, version#, der#, fich$
'chemin = ThisWorkbook.Path & "\" 'pour tester facilement
chemin = "\\nas\Dossier1\Dossier2\2. Excel\"
nomfich = Dir(chemin & "ASP - Fichier V*.xlsm") '1er fichier du dossier
While nomfich <> ""
version = Val(Mid(nomfich, InStrRev(nomfich, "V") + 1))
If version > der Then der = version: fich = nomfich 'dernière version
nomfich = Dir 'fichier suivant
Wend
If fich = "" Then
MsgBox "Aucun fichier trouvé..."
Else
MsgBox "Ouverture de '" & fich & "'"
Workbooks.Open (chemin & fich)
'---suite éventuelle---
End If
End Sub