Code VBA Excel

jijudu Messages postés 215 Statut Membre -  
Bidouilleu_R Messages postés 1209 Statut Membre -
Bonjour,


En VBA sur Excel :

Voilà j'ai une variable "f1" qui comporte le chemin + le nom du fichier. Le probléme est que le nom du fichier est compliqué à deviné. Donc j'aimerais récupérer le nom du fichier.
Exemple :
f1= C:\test\3300_42 BIBI 90.xls
Le truc est que j'aimerais prendre tous les caractéres à partir de la droite jusqu'au caractéres "\".
Connaissez-vous le code ??

Merci

3 réponses

Réponse 1 / 3
Bidouilleu_R Messages postés 1209 Statut Membre 295
 
bonjour,
avec
f1= C:\test\3300_42 BIBI 90.xls


x = Right(f1, 1) ' variable qui lit chaque lettre de la chaine de droite à gauche
f2 = ""
While x <> "\" ' tant que X est différent de "\"
f2 = Right(f1, 1) + f2 ' je reconstruis le nom du fichier
f1 = Left(f1, Len(f1) - 1) ' j'enlève le nom du fichier
x = Right(f1, 1)
Wend

F1= chemein
F2=nom du fichier
A+
0
Réponse 2 / 3
Polux31 Messages postés 7219 Statut Membre 1 204
 
Bonjour,

Voilà une fonction qui retourne le nom d'un fichier d'après son chemin complet: 

Public Function ReturnFileName(ByVal pFullPathFile As String) As String

    If Right(pFullPathFile , 1) = "\" Then
        ReturnFileName= pFullPathFile 
    Else
        ReturnFileName= Left(pFullPathFile , InStrRev(pFullPathFile , "\"))
    End If

End Function


Pour ton exemple, voilà ce que ça donne : 

f1= ReturnFileName(C:\test\3300_42 BIBI 90.xls)


f1 = "3300_42 BIBI 90.xls"

;o)
0
Réponse 3 / 3
Bidouilleu_R Messages postés 1209 Statut Membre 295
 
Bonjour Polux31,

merci du complément, je ne connaissais pas cette fonction.
je l'a mets dans mon panier.

Bonne journée.
R
0