XL 2019 Extraction d'une chaine de caractère

[Electronull]

Bonjour,

Je cherche à trouver en vba le moyen d'extraire une chaine de caractère depuis la droite vers la gauche jusqu'au caractère \
Ex : c:\jfkkjdfkjd\dljhldf\kjlkjldf.xlx
pour avoir que kjlkjldf.xlx

Merci

 

[sylvanu]

Bonjour Electronull,
Un essai avec une fonction perso :

Function ExtraireNom(C$)
    T = Split(C, "\")
    ExtraireNom = T(UBound(T))
End Function

et son application en VBA :

Sub Essai()
    NomFichier = ExtraireNom(Range("A1"))
End Sub

Ou directement dans une cellule :

=ExtraireNom(A1)

 

[Victor21]

Bonjour à tous.

Si la fonction est disponible sur votre version,

=TEXTE.APRES(A1;"\";3)

fait le job.

 

[sylvanu]

Bonjour Victor,
Cependant le "3" doit être variable puisqu'il s'agit d'extraire un nom de fichier.
On peut avoir :
C:\Essai.txt
ou
C:\Users\MonPC\Desktop\XLD\Exemples\Essai.txt
Peut être avec :

=TEXTE.APRES(A1;"\";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"\";"")))

Mais je n'ai pu le tester avec mon vieux XL2007.

 

[Victor21]

Re, sylvanu.
Tu as raison, je ne me suis attaché qu'à l'exemple fourni.

 

[sylvanu]

Re,
Pouvez vous tester la formule que j'ai rajouté à mon post ?

 

[Victor21]

Re,
Autre solution :

=DROITE(A1;NBCAR(A1)-TROUVE("@";SUBSTITUE(A1;"\";"@";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"\";"")))))

 

[Victor21]

RE,
Et avec les expressions régulières (si disponibles) :

=REGEX.EXTRAIRE(A1;"[^\\]+$")

 

[Victor21]

Peut être avec :

=TEXTE.APRES(A1;"\";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"\";"")))

Mais je n'ai pu le tester avec mon vieux XL2007.

Re,
Cette formule fonctionne parfaitement 😉

 

[Rheeem]

Il y a la fonction GetfileName pour cette opération et GetExtensionName pour extraire l'extension du fichier , GetBaseName pour extraire nom de fichier sans extension.

Function ExtractFileName(ByVal aFilename As String) As String
Static fso As Object
  If fso Is Nothing Then
     Set fso = CreateObject("Scripting.Filesystemobject")
  End If
  ExtractFileName = fso.GetfileName(aFilename)
End Function

 

[mapomme]

Bonjour à tous 😉,
Une autre solution toute simple en VBA si x est le texte d'origine : = Mid(x, InStrRev(x, "\") + 1)

 

[Electronull]

merci c nickel avec la formule de mapomme
Je vais regarder les autres formules aussi

 

[Electronull]

La version de Rheem fonctionne très bien également

 

[Electronull]

Re,
Cette formule fonctionne parfaitement 😉

Pas avec ma version

 

[Cousinhub]

Bonjour à tous.

Si la fonction est disponible sur votre version,

=TEXTE.APRES(A1;"\";3)

fait le job.

Bonjour Victor
Hélas, cette fonction n'est disponible que pour 2024 ou 365 (donc pas pour @Electronull )
Et en remplaçant le 3 par -1, tu obtiens le texte après le dernier \
Bonne journée