Avoir que les 3 derniers caractères d'un nom du fichier (avant son extension)

[richert90]

Bonjour, voici mon problème:

J'ai des fichiers que je récupère: par exemple "Test001.csv", "Test002.txt", "Test003.001" etc ....
Comment je peux, en VBA, obtenir que les 3 derniers chiffres avant l'extension? Dans les cas précédents, j'aimerais garder "001", "002", "003"; Javais pensé à une fonction du genre Right mais le problème c'est le .xxxxxxx de l'extension.

Ce que je peux peut-être faire, c'est me débrouillez pour avoir le nom du fichier sans son extension puis à partir de là ne garder que les 3 derniers caractères?

nom_fichier = Split(Mid$(filetoopen, InStrRev(var_nom_fichier, "\") + 1), ".")(0)

pour avoir le fichier sans l'extension
puis ensuite je peux appliquer une fonction rigtht? est-ce que cette méthode serait judicieuse ou il y a t-il un autre moyen?

Merci d'avance

PS: désolé pour le double post

 

[R@chid]

Re : Avoir que les 3 derniers caractères d'un nom du fichier (avant son extension)

Bonjour,
Par formule,

=STXT(A1;TROUVE(".";A1)-3;3)

@ + +

 

[richert90]

Re : Avoir que les 3 derniers caractères d'un nom du fichier (avant son extension)

Bonjour Rachid et merci pour ta réponse.
Cette fonction marche sur Excel mais en VBA Peut-on l'écrire d'une façon avec Application.worksheets.xxx ?

 

[R@chid]

Re : Avoir que les 3 derniers caractères d'un nom du fichier (avant son extension)

Re,
Je ne suis pas spécialiste en VBA..

@ + +

 

[Pierrot93]

Re : Avoir que les 3 derniers caractères d'un nom du fichier (avant son extension)

Bonjour à tous,

c'est fait alors je donne...

Dim t As String
t = "Test001.csv"
MsgBox Mid(t, InStrRev(t, ".") - 3, 3)

bon après midi
@+

 

[richert90]

Re : Avoir que les 3 derniers caractères d'un nom du fichier (avant son extension)

Merci pour vos réponses