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