VBA Nom des feuilles égale Nom du classeur sans l'extension

Bonjour à toutes et tous,

Sauf erreur de ma part le code ci-dessous me permet de renommer toutes les feuilles de mon classeur avec le nom de ce dernier en ajoutant un index itératif 1,2,3 ect.

En 1 : Est-il possible de faire la même chose mais avec le non sans l'extension du fichier .xlsm par exemple

En 2 : Est-il possible de faire cela pour tous classeurs ouverts (chaque feuille de chaque classeur porte le nom de son classeur) et pas uniquement sur le classeur actif ou sur le classeur ou est exécuté la macro ?

Merci

Très cordialement

Hugues

Sub NomFeuillevsNomFichier()

Dim Rng As Range
Dim WorkRng As Range

On Error Resume Next

For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = ActiveWorkbook.Name & i

Next
End Sub

Bonsoir HUGOBASS, le forum,

Pour le point 1:

A tester:

Sheets(i).Name = Split(ThisWorkbook.Name, ".")(0) & i

Cordialement

Pour le point 2:

A tester:

Sub test()
 Dim classeur As Workbook
  Application.ScreenUpdating = False
   For Each classeur In Application.Workbooks 'agit sur les classeurs ouverts
    For i = 1 To classeur.Sheets.Count
     classeur.Sheets(i).Name = Split(classeur.Name, ".")(0) & i
    Next i
   Next classeur
End Sub

Cordialement,

Bonjour xorsankukai, toutes et tous,

xorsankukai , un premier merci pour avoir pris le temps de t'intéresser à mon post et cela rapidement et un second merci pour tes réponses qui ont résolu mes 2 problèmes.

Trés cordialement

Hugues