Renommer feuille avec nom du classeur sans extension de fichier

Résolu/Fermé
HUGO BASS Messages postés 20 Date d'inscription dimanche 11 août 2013 Statut Membre Dernière intervention 18 septembre 2015 - 24 oct. 2014 à 17:53
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 25 oct. 2014 à 18:25
Bonjour,

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



A voir également:

4 réponses

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
24 oct. 2014 à 18:22
Bonjour,

à tester : https://www.cjoint.com/?DJyszZ6zKty
Dans la boite tu peux sélectionner plusieurs fichiers avec la touche Ctrl+clic (ou clic sur le 1er et shift+clic sur le dernier pour en sélectionner une série)

eric
1
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
24 oct. 2014 à 18:28
Bonsoir

une seule ligne de macro devrait suffire
Sheets("A").Name = ThisWorkbook.Name

Cdlmnt
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 oct. 2014 à 18:30
Bonjour,

essaies cette instruction dans ta macro

Activesheet.name= Split(ThisWorkbook.Name, ".")(0)
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
24 oct. 2014 à 18:45
Salut michel :-)

Ah oui, même pas pensé au split()
Mais bon, seulement s'il n'y a pas d'autres . dans les noms.
eric
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
25 oct. 2014 à 18:25
0