Nom de l'onglet est le nom du fichier sans l'extension

[HUGUESEXCEL]

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, renommée 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 nommée : TOTO A SOIF 01 2014.xls deviendrais après exécution d'une macro :
TOTO A SOIF 01 2014

Merci
Cordialement
Hugues

 

[Staple1600]

Re : Nom de l'onglet est le nom du fichier sans l'extension

Bonsoir à tous

Hugues
Tu as trouvé quoi comme infos lors de tes recherches dans les archives du forum
Car nul doute, que tu n'as pas oublié ceci

Demandeur

1 – Un outil de recherche sur le forum permet de voir si la question a déjà été posée. Ne pas hésiter à l’utiliser. Lien vers le moteur de recherche

Je dis cela car la plupart des membres inscrits sur le forum depuis plus de six mois ont acquis ce réflexe.

(Tu es inscrit depuis 7 ans ...)

 

[phlaurent55]

Re : Nom de l'onglet est le nom du fichier sans l'extension

Bonjour à tous,

avec ce code pour un seul classeur ( à adapter )

Private Sub Workbook_Open()
For i = 1 To Sheets.Count
    If Sheets(i).Name = "A" Then
        If Right(ActiveWorkbook.Name, 5) = ".xlsm" Then
            Sheets(i).Name = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
            Exit Sub
        Else
            Sheets(i).Name = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
            Exit Sub
        End If
    End If
Next i
End Sub

à+
Philippe