Rechercher le prochain nom de fichier à utiliser

Public Function RecupVersionMaxFichier(pathDossier As String, baseNomFichier As String) As Long
Dim myFso As Object, fold As Object, curFile As Object
Dim version As String, maxVersion As Long
    
    Set myFso = CreateObject("Scripting.FileSystemObject")
    Set fold = myFso.GetFolder(pathDossier)
    
    For Each curFile In fold.Files
        If curFile.Name Like baseNomFichier & "*" Then
            version = Replace(Replace(curFile.Name, baseNomFichier, vbNullString), "." & myFso.GetExtensionName(curFile.Name), vbNullString)
            If IsNumeric(version) Then
                If CLng(version) > maxVersion Then maxVersion = CLng(version)
            End If
        End If
    Next curFile
    
    Set curFile = Nothing: Set fold = Nothing: Set myFso = Nothing
    RecupVersionMaxFichier = maxVersion
End Function


Sub test()
Dim nouveauNumDeVersion As Long
    nouveauNumDeVersion = RecupVersionMaxFichier("C:\DossierContenantToutesLesVersions", "MonFichier V")
    nouveauNumDeVersion = nouveauNumDeVersion + 1
    
    MsgBox nouveauNumDeVersion
End Sub

For I = Len(cell) To 1 Step -1
If Mid(cell, I, 1) = "." Then GoTo suite
Next
suite:
Ext = Mid(cell, I + 1, Len(cell) - I)