Boucle renommer onglets par le nom des classeurs ouverts

Bonjour à toutes et tous

Comment modifier le code ci-après pour que chaque onglet (un onglet par classeur dans mon cas et toujours avec le non Feuil1 au moment de l'export initial) prenne le non du classeur le contenant sans l'extension.

En effet la boucle ci-après donne le nom du classeur contenant le module d'où est lancé la macro et malgré toutes mes tentatives je n'ai pas réussi à adapter comme il faut.

Sub Renommerfeuil1()
Dim Cls As Integer
On Error Resume Next
For Cls = 1 To Windows.Application.Workbooks.Count
Application.Workbooks(Cls).Sheets("Feuil1").Name = Split(ThisWorkbook.Name, ".")(0)
Next Cls

End Sub

Merci

Cordialement

Hugues

Bonjour,

Essaie avec :

Sub Renommerfeuil1()

Dim Nom() As String

For Each Wb In Application.Workbooks
    Nom = Split(Wb.Name, ".")
    Wb.Sheets(1).Name = Nom(0)
Next

End Sub

bonjour,

essaie ceci

Sub Renommerfeuil1()
Dim Cls As Integer
On Error Resume Next
For Cls = 1 To Windows.Application.Workbooks.Count
Workbooks(Cls).Sheets("Feuil1").Name = Split(Workbooks(Cls).Name, ".")(0)
Next Cls

End Sub

Bonjour h2so4, Pedro22

Merci beaucoup tant pour la rapidité que la bonne solutions.

Vos 2 codes fonctionnent.

Je mets le poste en résolu

Merci

Cordialement

Hugues