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