Discussion :

[HUGOBASS]

Bonjour à toutes et tous,

Je voudrais pour plusieurs classeurs avec chacun un nom de fichier différent et contenant chacun une feuille nommée A, renommer la feuille A avec le nom du classeur la contenant sans l'extension du nom de fichier.
Ainsi par exemple la feuille A du classeur ayant le nom de fichier : TOTO A SOIF 01 2014.xls deviendrais après exécution d'une macro :
TOTO A SOIF 01 2014

Merci
Cordialement
Hugues

[parmi]

Bonjour,

Ça dépend si le fichier est ouvert au préalable, c'est-à-dire si Fichier.Name contient le chemin ou non.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    NomFichier = ThisWorkbook.Name
    NomFichier = Left(NomFichier, InStr(1, NomFichier, ".") - 1)

[pgz]

Bonsoir.

Si le code est dans le projet du classeur dont il faut renommer la feuille "A", tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Worksheets("A").Name = Mid$(ThisWorkbook.Name, 1, InStrRev(ThisWorkbook.Name, ".") - 1)

Cordialement,

PGZ