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

HUGUESEXCEL · 24 Octobre 2014

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 · 24 Octobre 2014

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 · 25 Octobre 2014

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

Bonjour à tous,

avec ce code pour un seul classeur ( à adapter )

Code:

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

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

HUGUESEXCEL

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

Discussions similaires

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

HUGUESEXCEL

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

Discussions similaires

Privacy & Transparency

Privacy & Transparency