récupération d'un morceau de chaine

kypassart

XLDnaute Nouveau
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:cool:
 
G

Guest

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

Bonjour Ky,

voici une petite fonction pour excel >xl97

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

a bientôt
 

jp14

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

Bonjour

Ci dessous une solution en VBA
On cherche le dernier "\"
Code:
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

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

Bonjour à tous,

Bien que la solution d'Hasco soit bien plus concise une autre possibilité
Code:
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
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 084
Messages
2 085 194
Membres
102 813
dernier inscrit
kaiyi