Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !
Mid$(Chaine1, InstrRev(Chaine1, "\") + 1)Function AprèsASlh(ByVal S As String, N As Integer) As String
AprèsASlh = Mid$(S, InStr(Replace(S, "\", " ", 1, N - 1), "\") + 1)
End Function
x = Split(texte, "\")(UBound(Split(texte, "\")))
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 extractOption 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 Subet au post #12 "Classeur\" est utilisé pour définir le Pattern...
Hello job75,
