Discussion :

[ancel17]

Bonjour,

Le problème du jour (en tout cas le mien) est le suivant :
Je récupère au moyen de foundfiles(i) différentes adresses de fichiers.

Ce que je voudrais, c'est récupérer uniquement le nom du fichier, donc tout ce qui se trouve après le dernier "\"

Quelqu'un a-t-il une idée ?

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomFich = StrReverse(Left(StrReverse, InStr(Foudfiles(i), "\") - 1))

Tu peux aussi faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Tablo = Split(foundfiles(i), "\")
NomFich = Tablo(ubound(Tablo))

[Le Pierre]

bonjour

essaye ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    Fich = "c:\excel\test\NomduFichier.xls"
    i = 1
    Do
        x = InStr(i, Fich, "\")
        If x = 0 Then Exit Do
        Memx = x
        i = x + 1
    Loop
    NomFichier = Right(Fich, Len(Fich) - Memx)
    MsgBox ("Nom du fichier = " & NomFichier)
End Sub

à plus

[mayekeul]

ma petite méthode à moi qui fait le même mais que je met quand même

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
strtemp=split(foundfile(i),"\")
nomfichier=strtemp(ubound(strtemp))

[ouskel'n'or]

Réponse déjà donnée mon cher Mayekeul

[mayekeul]

chuis trop lent!

[ouskel'n'or]

Ouai ! Et avoue que strreverse, ça a une autre gueule

[mayekeul]

j'avoue j'avoue

quel panache surtout!

[ancel17]

Merci à tous pour vos contributions !

Le StrReverse fonctionne à merveille à condition d'y apporter quelques petites modifications :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomFich = StrReverse(Left(StrReverse(.FoundFiles(i)), InStr(StrReverse(.FoundFiles(i)), "\") - 1))

Nota : .FoundFiles est utilisé avec un With Application.FileSearch