Rechercher : dans
Par :

Code VBA Excel

Dernière réponse le 7 jui 2009 à 10:32:50 jijudu, le 7 jui 2009 à 09:28:55 
 Signaler ce message aux modérateurs

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

Configuration: Windows XP Internet Explorer 7.0

1

Bidouilleu_R, le 7 jui 2009 à 09:50:01

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+

Répondre à Bidouilleu_R

2

Polux31, le 7 jui 2009 à 09:50:39

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) «Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau

Répondre à Polux31

3

 Bidouilleu_R, le 7 jui 2009 à 10:32:50

Bonjour Polux31,

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

Bonne journée.
R

Répondre à Bidouilleu_R