XL 2021 extraire chaine en vba

Mid$(Chaine1, InstrRev(Chaine1, "\") + 1)

RegexExtract(text, pattern, Optional caseSensitive = 0) As String
Dim RegEx As Object, matches As Object
 Set RegEx = CreateObject("VBScript.RegExp")
 RegEx.pattern = pattern
 RegEx.IgnoreCase = caseSensitive
 Set matches = RegEx.Execute(text)
 If matches.Count = 1 Then RegexExtract = matches(0).SubMatches(0)
Set RegEx = Nothing : Set matches = Nothing
End Function

Sub TestRegexExtract()
  Debug.Print RegexExtract("C:\Users\claud\Classeur\tétéou\fic.txt", "Classeur\\(.*)$")
End Sub

Function ExtractFileName(text As String) As String
    Dim RegEx As Object
    Dim matches As Object
 
    On Error GoTo ErrorHandler
    Set RegEx = CreateObject("VBScript.RegExp")
 
    ' Pattern pour extraire la dernière partie du chemin (fichier ou dossier)
    RegEx.IgnoreCase = True
    RegEx.pattern = "[^\\]+(?=$)" ' Capture le dernier segment du chemin
    'RegEx.pattern = "[^\\]+(?=\\[^\\]*$)" ' Capture l'avant-dernier segment du chemin
    'RegEx.pattern = "[^\\]+\\[^\\]+$" ' Capture l'avant-dernier et le dernier segment
 
    Set matches = RegEx.Execute(text)
 
    If matches.Count > 0 Then
        ' Retourner le dernier segment (fichier ou dossier)
        ExtractFileName = matches(0).Value
    Else
        ExtractFileName = "" ' Si aucun match n'est trouvé
    End If
 
    ' Libérer les objets
    Set RegEx = Nothing
    Set matches = Nothing
    Exit Function

ErrorHandler:
    ' Gestion des erreurs
    ExtractFileName = "Erreur dans l'extraction"
    Set RegEx = Nothing
    Set matches = Nothing
End Function

Sub TestExtractFileName()
    ' Test de la fonction avec un exemple
    Debug.Print ExtractFileName("C:\Users\claud\Classeur\tétéou\fic.txt") ' Retournera "fic.txt"
End Sub

chaine = "C:\Users\claud\Classeur\???????\????????"
extract = Mid(chaine, InStr(chaine, "Classeur\") + 9)
MsgBox extract

Option Explicit
Function ExtractThirdToLastSegment(text As String) As String
'Cette fonction extrait l'avant-avant-dernier segment dans le chemin après "Classeur\"' en
'utilisant des expressions régulières.' Exemple : Pour "C:\Users\claud\Classeur\tétéou\fic.txt",
'elle 'retournera "tétéou\fic.txt".' Le motif de l'expression régulière capture tous les segments
'qui 'suivent "Classeur\".
    Dim regex As Object
    Dim matches As Object ' Ceci contiendra un MatchCollection
    Dim match As Object ' Ceci contiendra un Match
 
    On Error GoTo ErrorHandler
    Set regex = CreateObject("VBScript.RegExp")
 
    regex.IgnoreCase = True
    regex.Global = False
    regex.Pattern = "Classeur\\(.+)" ' Expression régulière pour capturer ce qui suit "Classeur\"
 
    Set matches = regex.Execute(text)
 
    If matches.Count > 0 Then
        ' Retourner l'avant-l'avant-dernier segment
        Set match = regex.Execute(text)(0)
        ExtractThirdToLastSegment = match.SubMatches(0) ' Sous-chaîne pour capturer ce qui suit "Classeur\"
    Else
        ExtractThirdToLastSegment = "" ' Si aucun match n'est trouvé
    End If
 
    ' Libérer les objets
    Set regex = Nothing
    Set matches = Nothing
    Exit Function


ErrorHandler:
    ' Gestion des erreurs
    ExtractThirdToLastSegment = "Erreur dans l'extraction"
    Set regex = Nothing
    Set matches = Nothing
End Function


Sub TestExtractThirdToLastSegment()
    ' Test de la fonction avec différents exemples
    Debug.Print ExtractThirdToLastSegment("C:\Users\claud\Classeur\tétéou\fic.txt") ' Doit retourner "tétéou\fic.txt"
    Debug.Print ExtractThirdToLastSegment("C:\Users\claud\Classeur\2???????\????????")' Doit retourner "2???????\????????"
    Debug.Print ExtractThirdToLastSegment("C:\Users\claud\Classeur\simple") ' Doit retourner "simple"
    Debug.Print ExtractThirdToLastSegment("C:\Users\claud\autre\path") ' Doit retourner "Aucune correspondance trouvée"
End Sub