Extraction du nom de fichier à partir d'une chaîne de caractère

[Jerry]

Bonjour au Forum,

Comment je peux faire pour récupérer le nom du fichier excel ouvert sachant que la variable TheFile donne le chemin complet + le nom de fichier sous la forme: "c:\Mes Documents\administratif\Exemple.xls" et que ce chemin est différent à chaque fois.
y a-t-il une astuce pour obtenir le nom du fichier directement??

____________________________________________________________

ThePath = "R:\BE\A-O\"
UserDir = CurDir
ChDir ThePath
TheFile = Application.GetOpenFilename("Excel Files(*.xls),*.xls")
If TheFile = False Then
ChDir UserDir
Exit Sub
End If


Set WB = Workbooks.Open(TheFile)
ChDir UserDir

___________________________________________________

 

[Catrice]

Re : Extraction du nom de fichier à partir d'une chaîne de caractère

Bonjour,

Tu peux essayer ceci :

Sub Test()
TheFile = Application.GetOpenFilename("Excel Files(*.xls),*.xls")
Var = Split(TheFile, "\")
MsgBox Var(UBound(Var))
End Sub

 

[JNP]

Re : Extraction du nom de fichier à partir d'une chaîne de caractère

Bonjour Jerry, Catrice 🙂,
Si, comme tu le précise, le fichier est bien ouvert et actif :

MsgBox ActiveWorkbook.Name

Bonne journée 😎

 

[Jerry]

Re : Extraction du nom de fichier à partir d'une chaîne de caractère

Merci CATRICE
C'est parfait, mais où puis-je trouver ces commandes comme SPLIT etc..
merci encore!🙂🙂🙂

 

[Jerry]

Re : Extraction du nom de fichier à partir d'une chaîne de caractère

Merci à vous deux,
évidemment les deux solutions sont bonnes,
C'est tellement simple qu'il fallait y penser,
A+

 

[Catrice]

Re : Extraction du nom de fichier à partir d'une chaîne de caractère

Re,

Tu trouveras des informations sur Split dans l'aide.
Je crois que Split ne fontionne pas sous Mac et est au moins disponible à partir de Excel 2000.