Rechercher le plus grand nom de fichier...

Sub tt()
Dim myFso As Scripting.FileSystemObject
Dim myFolder As Scripting.Folder
Dim curFile As File
Dim nomFichier As String: nomFichier = ""

Set myFso = CreateObject("Scripting.FileSystemObject")
Set myFolder = myFso.GetFolder(ThisWorkbook.Path)

For Each curFile In myFolder.Files
    If UCase(Right(curFile.Name, 3)) = "DPT" And Len(Left(curFile.Name, Len(curFile.Name) - 4)) > Len(nomFichier) Then nomFichier = Left(curFile.Name, Len(curFile.Name) - 4)
Next curFile

MsgBox nomFichier
End Sub

Sub essai()
  repertoire = ThisWorkbook.Path
  nf = Dir(repertoire & "\*.dpt")
  Do While nf <> ""
    If Len(nf) > Maxi Then
       Maxi = Len(nf)
       fichier = nf
    End If
    nf = Dir
  Loop
  MsgBox fichier
End Sub

Sub Macro1()
Dim chemin As String 'déclare la variable chemin
Dim fs, f, f1, fc 'déclare les variables fs, f, f1, fc, s
Dim nval As Integer 'déclare la variable nval
Dim x As Integer 'déclare la variable x
chemin = ThisWorkbook.Path 'définit la variable chemin
Set fs = CreateObject("Scripting.FileSystemObject") 'définit la variable fs
Set f = fs.GetFolder(chemin) 'définit la variable f
Set fc = f.Files 'définit la variable fc
For Each f1 In fc 'boucle sur tous les fichiers du dossier
    On Error GoTo suite 'génère une erreur si le nom du fichier n'est pas convertible en entier (va à l'étiquette "suite"
    nval = CInt(Left(f1.Name, Len(f1.Name) - 4)) 'définit la variable nval
    If nval > x Then x = nval 'définit la variable x (la plus grande valeur de nval)
suite: 'étiquette
Next f1 'prochain fichier du dossier
MsgBox x 'affiche la plus grande valeur (tu adapteras pour récupérer cette valeur...)
End Sub

Dim myFso As Scripting.FileSystemObject

nval = CInt(Left(f1.Name, Len(f1.Name) - 4)) 'définit la variable nval

Sub tt()
[B]Dim myFso
Dim myFolder[/B]
Dim curFile As File
Dim nomFichier As String: nomFichier = ""

Set myFso = CreateObject("Scripting.FileSystemObject")
Set myFolder = myFso.GetFolder(ThisWorkbook.Path)

For Each curFile In myFolder.Files
    If UCase(Right(curFile.Name, 3)) = "DPT" And Len(Left(curFile.Name, Len(curFile.Name) - 4)) > Len(nomFichier) Then nomFichier = Left(curFile.Name, Len(curFile.Name) - 4)
Next curFile

MsgBox nomFichier
End Sub

Sub Macro1()
Dim chemin As String
Dim fs, f, f1, fc, s
chemin = ThisWorkbook.Path
Dim nval As Integer
Dim x As Integer
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(chemin)
Set fc = f.Files
For Each f1 In fc
    If Ucase(Right(f1.Name, 3)) <> "DPT" Then GoTo suite
    On Error Resume Next
    nval = CInt(Left(f1.Name, Len(f1.Name) - 4))
    If nval > x Then x = nval
suite:
On Error GoTo 0
Next f1
MsgBox x
End Sub

Private Sub Workbook_Open()