Récupération nom d'un fichier

Bonjour,

Je souhaite récupérer une partie du nom de mon fichier. Le code devra fonctionner sur des fichiers ayant un nom suivant cette tram:

codeprojet Etude projet - Nomprojet

Le but étant en utilisant Thisworkbook.name (ou autre formule que je ne connais pas) de récupérer le Nomprojet. Or ce nom fatalement n'a pas toujours la même taille. Pour palier à cela je voudrait savoir si quelqu'un a une solution pour récupérer la fin du nom du fichier.

Pour le moment j'arrive a récupérer le code projet avec: left(thisworkbook.name,8) car le code projet a toujours cette base fixe de 8 contrairement au Nomprojet.

En vous remerciant pour le temps passé.

Belle journée à vous

Bonjour,

Quelque chose comme ceci:

    Projet = ThisWorkbook.Name
    'Position du Tiret
    Pos_Tiret = InStr(1, Projet, "-", 1)
    NomProjet = Mid(Projet, Pos_Tiret + 2, Len(Projet) - Pos_Tiret)

Cdlt

Bonjour,

Après quelques modifications pour que cela fonctionne avec mon code déjà en place cela fonctionne parfaitement merci beaucoup.

Seul petit soucis est un ".xlsm" qui s'affiche après le nom du projet.

En adaptant le code j'arrive a repérer la position du "." avec le même principe que pour le "-" sauf que je n'arrive pas à supprimer le ".xlsm".

Si vous avez une solution je suis prenneur.

Merci d'avance

Bonjour,

Essayez ceci:

NomProjet = Replace(Mid(Projet, Pos_Tiret + 2, Len(Projet) - Pos_Tiret), ".xlsm", "")

Cdlt

Bonjour, cela marche parfaitement merci beaucoup.