Enlever extension fichier dans le nom et mettre dans une variable

Bonjour,

Je souhaiterais effectuer des actions sur une feuille qui possède le même nom que le fichier.

Pour cela je voudrais créer une variable qui garderait le nom du fichier mais sans son extension .csv

J'ai quelque chose qui ressemble à ca comme ligne mais ça ne marche pas vraiment

Fich = Split(fileName, ".")(0)

'// sachant que fileName = fichier.Name

Auriez-vous quelques pistes ?

Merci !

Hello,

Essaie ça

With ThisWorkbook
    MsgBox Mid(.Name, 1, InStrRev(.Name, ".") - 1)
End With

@+

Bonjour, il faudrait un peu plus d'explication dans le contexte.

Nota :

- Si votre fichier est un fichier au format csv alors il ne peut contenir de macro (le code ne sert à rien à ce moment la )

- Si le nom de la feuille est égal au nom de fichier sans l'extension alors pourquoi récupérer le nom de fichier au lieu de récupérer le nom de l'onglet ?

Pardon pour le manque de clareté,

J'ai un fichier xlsm dans lequel se trouve ma macro, le but de cette macro est de transformer des fichiers .csv (j'en reçois un par jour) afin d'ajouter des colonnes et des calculs dedans.

Par exemple dans ma macro je possède une ligne comme ca

Active.Worksheets(Fich).Sort.SortFields.Clear

et je souhaiterais que Fich soit le nom du fichier mais sans l'extension.

Bien à vous

Hello,

Au cas où ça se soit perdu :

With ThisWorkbook
    MsgBox Mid(.Name, 1, InStrRev(.Name, ".") - 1)
End With

@+

Thanks baroute, est ce que je peux utiliser ton format pour le stocker dans une variable ?

Par exemple

 Fich = With ThisWorkbook
    MsgBox Mid(.Name, 1, InStrRev(.Name, ".") - 1)
End With

Nope plutôt comme ça :

With ThisWorkbook
    Fich = Mid(.Name, 1, InStrRev(.Name, ".") - 1)
End With

@+

thanks :)

Du coup c'est ok pour ce que tu veux ?

Si oui hésite pas à passer le post en résolu

@+