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

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof