récupération d'un morceau de chaine

[kypassart]

bonjours
voilà je n'arrive pas à récupérer un élément bien précis d'un chaine de caractères

voila ma chaine
ma chaine est la valeur retourner par .foundfile
\\xxxxx\xxxx\xxxx\....\nom du fichier

moi je veux seulement le nom du fichier
pour l'afficher dans une listbox

merci d'avance😎

 

[Guest]

Re : récupération d'un morceau de chaine

Bonjour Ky,

voici une petite fonction pour excel >xl97

Function GetNomFichier(NomFichier As String)
Dim t
  t = Split(NomFichier, "\")
  GetNomFichier = t(UBound(t))
End Function 'fs

a bientôt

 

[jp14]

Re : récupération d'un morceau de chaine

Bonjour

Ci dessous une solution en VBA
On cherche le dernier "\"

Sub recherche()
Data1 = Sheets("Feuil1").Range("a2")
pos = 0
pos1 = 0
Do
    pos = InStr(pos + 1, Data1, "\")
    If pos = 0 Then Exit Do
    pos1 = pos

    
Loop
nom = Mid(Data1, pos1 + 1, 100)
End Sub

A tester

JP

 

[Spitnolan08]

Re : récupération d'un morceau de chaine

Bonjour à tous,

Bien que la solution d'Hasco soit bien plus concise une autre possibilité

Sub Fichier()
Machaine = "C:\xxxxx\xxxx\xxxx\....\nomdufichier.ext"
i = Len(Machaine)
Do While pos = 0
    i = i - 1
    pos = InStr(i, Machaine, "\")
Loop
fichier = Mid(Machaine, pos + 1)
End Sub

Cordialement

 

[kypassart]

Re : récupération d'un morceau de chaine

merci
la fonction VBA fonction très bien