Partager vos
astuces Bricolage
Posez votre question Signaler

Code VBA Excel

jijudu 163Messages postés 19 mai 2008Date d'inscription - Dernière réponse le 7 juil. 2009 à 10:32
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
Lire la suite 

Code VBA Excel »

3 réponses
Réponse
+0
moins plus
Bidouilleu_R 1113Messages postés 27 mai 2008Date d'inscription 24 novembre 2011Dernière intervention 7 juil. 2009 à 09:50
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+

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
Polux31 5740Messages postés 25 septembre 2007Date d'inscription 20 novembre 2011Dernière intervention 7 juil. 2009 à 09:50
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)

Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
Bidouilleu_R 1113Messages postés 27 mai 2008Date d'inscription 24 novembre 2011Dernière intervention 7 juil. 2009 à 10:32
Bonjour Polux31,

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

Bonne journée.
R

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « code VBA Excel » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
5 extensions si vous voulez revenir à l'ancien Facebook