XL 2019 Extraction d'une chaine de caractère

' ByRef signifie que la fonction reçoit une référence sur la variable d'origine, ce qui permet (si besoin) de modifier la variable appelante.
' ByVal signifie que la fonction reçoit une copie de la valeur et ne peut donc pas modifier la variable d'origine.
Function ExtraireNom(ByVal C As String) As String
' Solution A (Avec l'extension)
    A = Mid(C, InStrRev(C, "\") + 1)
' Solution B1 (Sans l'extension)
    B1 = Mid(C, InStrRev(C, "\") + 1, InStrRev(C, ".") - InStrRev(C, "\") - 1)
' Solution B2 (Sans l'extension)
    B2 = Split(Split(C, ".")(0), "\")(UBound(Split(Split(C, ".")(0), "\")))
' CHoix A Ou B1 0u B2
    ExtraireNom = B2
End Function

Sub Essai()
    MsgBox ExtraireNom(Range("A1"))
End Sub

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Type modifié" = Table.TransformColumnTypes(Source,{{"Colonne1", type text}}),
    #"Fractionner la colonne par délimiteur" = Table.SplitColumn(#"Type modifié", "Colonne1", Splitter.SplitTextByEachDelimiter({"\"}, QuoteStyle.Csv, true), {"Colonne1.1", "Colonne1.2"}),
    #"Type modifié1" = Table.TransformColumnTypes(#"Fractionner la colonne par délimiteur",{{"Colonne1.1", type text}, {"Colonne1.2", type text}}),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Type modifié1",{"Colonne1.1"})
in
    #"Colonnes supprimées"

Mid((Range("C3")), InStrRev((Range("C3")), "\") + 1)

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
   A = Table.TransformColumns(Source, {{"Colonne1", each Text.AfterDelimiter(_, "\", {0, RelativePosition.FromEnd}), type text}})
in
    A