Renommer onglet avec nom du classeur sans extension fichiier

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

TOTO A SOIF 01 2014

Merci

Cordialement

Hugues

Bonjour,

Teste ceci. Les classeurs doivent être ouverts :

Sub Renommer()

    Dim Cls As Workbook
    Dim Fe As Worksheet

    For Each Cls In Workbooks

        For Each Fe In Cls.Worksheets

            If Fe.Name = "A" Then Fe.Name = Left(Cls.Name, InStrRev(Cls.Name, ".") - 1)

        Next Fe

    Next Cls

End Sub

Hervé.

Bonsoir Hervé,

Je vous remercie d'avoir résolu aussi rapidement mon problème

Bonne soirée