Discussion :

[Piernod]

Bonjour à tous,

Comme dit dans le titre, je souhaite couper un chemin d'accès afin de ne garder que la dernière partie pour n'afficher que le nom de fichier.

Pour l'instant, j'obtiens le nom de mon fichier avec la commande :

Code :

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

Nom_Fichier = Application.GetOpenFilename(, , "Sélectionnez la sensibilité à extraire")

Donc j'obtiens un résultat du type :

C:\Users\UserName\RepertoireA\file.xls

Ce que je souhaite faire au final, c'est pouvoir récupérer "file.xls".

Quelqu'un pourrait-il m'aider ?

Merci d'avance

[ucfoutu]

Bonjour,

déjà :
l'utilisation de InstrRev te permet d'obtenir la position (appelons-la Pos) tu dernier "\"'
La fonction Mid (en utilisant la valeur de Pos + 1) extraiera tout ce quit vient après ce "\"

[melouille56]

voici une fonction qui peut t'aider:

Code :

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

1
2
3
4
5
6
7
Public Function ExtractFileName(ByVal sFullPath As String) As String
    If InStr(sFullPath, "\") = 0 Or Right(sFullPath, 1) = "\" Then
        ExtractFileName = ""
        Exit Function
    End If
    ExtractFileName = Mid(sFullPath, InStrRev(sFullPath, "\") + 1)
End Function

Mél

[Piernod]

Parfait !! Merci beaucoup ucfoutu

[COCONUT2]

Autres possibilités.

Pour avoir le nom seul:

Code :

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

ActiveWorkbook.name

Ou alors une fonction qui décompose le texte en fonction d'un (ou plusieurs) caractères

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Tableauadresse=split(actiworkbook.path,"/")
'l'adresse est décomposé dans un tableau dont chaque ligne (de 0 à n)
' contient un morceau de l'adresse.
 
'on peut alors recomposer l'adresse par :
for i = Lbound(tableauadresse) to Ubound(tableauadresse)
       adresse=adresse & "/" & tableauadresse(i)
next i
 
'on supprime le 1er "/"
adresse = right(adresse, len(adresse)-1)
 
'Forcément, le nom du fichier était dans la dernière case du tableau
Nomfichier = Ubound(tableauadresse)

On peut aussi remonter un chemin
Pour remonter dans le répertoir au dessus du fichier:

Code :

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

1
2
3
4
5
6
for i = Lbound(tableauadresse) to Ubound(tableauadresse)-1
       adresse=adresse & "/" & tableauadresse(i)
next i
 
'on supprime le 1er "/"
monchemin= right(adresse, len(adresse)-1)