XL 2019 Extraction d'une chaine de caractère

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Février 2025

• #2

Bonjour Electronull,
Un essai avec une fonction perso :

VB:

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

et son application en VBA :

Code:

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

Ou directement dans une cellule :

Code:

=ExtraireNom(A1)

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 1 Février 2025

• #3

Bonjour à tous.

Si la fonction est disponible sur votre version,

VB:

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

fait le job.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Février 2025

• #4

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 :

VB:

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

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

 

Dernière édition: 1 Février 2025

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 1 Février 2025

• #5

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Février 2025

• #6

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 1 Février 2025

• #7

Re,
Autre solution :

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 1 Février 2025

• #8

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

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 1 Février 2025

• #9

sylvanu à dit:

Peut être avec :

VB:

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

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

Cliquez pour agrandir...

Re,
Cette formule fonctionne parfaitement 😉

 

Vote positif 0 Vote négatif

R

Rheeem

XLDnaute Junior

• 1 Février 2025

• #10

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.

Code:

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

 

Dernière édition: 1 Février 2025

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 1 Février 2025

• #11

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

 

Dernière édition: 1 Février 2025

Vote positif 0 Vote négatif

Solution

E

Electronull

XLDnaute Junior

• 1 Février 2025

• #12

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

 

Dernière édition: 1 Février 2025

Vote positif 0 Vote négatif

E

Electronull

XLDnaute Junior

• 1 Février 2025

• #13

La version de Rheem fonctionne très bien également

 

Vote positif 0 Vote négatif

E

Electronull

XLDnaute Junior

• 1 Février 2025

• #14

Victor21 à dit:

Re,
Cette formule fonctionne parfaitement 😉

Cliquez pour agrandir...

Pas avec ma version

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 1 Février 2025

• #15

Victor21 à dit:

Bonjour à tous.

Si la fonction est disponible sur votre version,

VB:

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

fait le job.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif