Renommer les onglets d'un classeur en fonction du fichier importé

[bsuge]

Bonjour !!!!

En farfouillant sur le site, j'ai récupéré le code d'une macro qui me permet d'importer des fichiers csv pour les copier vers les onglets d'un même classeur excel.
Cependant, j'aimerais pouvoir renommer les onglets en fonction du nom du fichier importé.
Par exemple, si mon fichier se nomme "XX_RBA_XX_XX.csv", le titre de l'onglet sera "RBA".
Je vous joint le code.

merci d'avance pour votre aide.

 

[Robert]

Re : Renommer les onglets d'un classeur en fonction du fichier importé

Bonjour Bsuge, bonjour le forum,

Peut-être en rajoutant la seconde ligne à ton code :

Set Ws = ActiveWorkbook.Sheets.Add 'ajout d'une feuille pour importer les données
ActiveSheet.Name Split(Fichier, "_", -1)(1) 'définit la nom de l'onglet
Open Direction & Fichier For Input As #1 'ouverture fichier txt pour recuperation infos

 

[bsuge]

Re : Renommer les onglets d'un classeur en fonction du fichier importé

Bonjour Robert,

Ca fonctionne parfaitement avec l'ajout de la ligne proposée.
Merci beaucoup pour ton aide.

A plus