Renommer feuille avec nom du classeur sans extension de fichier

Résolu
HUGO BASS Messages postés 20 Statut Membre -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
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

4 réponses

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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
  2. via55 Messages postés 14396 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonsoir

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

    Cdlmnt
    0
  3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour,

    essaies cette instruction dans ta macro

    Activesheet.name= Split(ThisWorkbook.Name, ".")(0)
    0
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      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

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site
ScarexStupid -
Rossignol -

9 réponses
Extension de fichier powerpoint
Ginger67 -
Ginger67 -

5 réponses
Chemin Logo du site de la Cité de l'espace
Keiios -
blux -

11 réponses
question pix mot caché
aorum10 -
pixlagalere -

7 réponses