Activesheet.name : supprimer les 8 premieres lettres du nom ?

[Evelynetfrancois]

Bonsoir tout le monde
je ne trouve pas la solution pour n’obtenir que les fins du nom de mes feuilles

Exemple
J ai une feuille nommée planning1 …….je ne voudrais récupérer que « 1 »
J ai une feuille nommée planningNoel …….je ne voudrais récupérerque » Noel »
En fait je souhaite ‘virer’ les 8 premières lettres « planning » ,pour ne garder que le reste situé à droite

Sheets("parametres").Range("j1").Value = Left(ActiveSheet.Name, 5)
Me donne les 5 premières lettres, ou les dernieres avec right !!!

Un grand merci d'avance pour toutes vos sujetions
Bonne soirée à tous
E et F

 

[ERIC S]

Re : Activesheet.name : supprimer les 8 premieres lettres du nom ?

Bonjour

à tester

right(activesheet.name,len(activesheet.name)-5)

 

[pierrejean]

Re : Activesheet.name : supprimer les 8 premieres lettres du nom ?

Bonsoir E & F

A tester:

Sheets("parametres").Range("j1").Value =Replace(ActiveSheet.Name, "planning","")

 

[Evelynetfrancois]

Re : Activesheet.name : supprimer les 8 premieres lettres du nom ?

Un trés grand merci pour vos propositions !! rapide !!!
après test ....
la proposition d' ERIC S marche à merveille
quand a celle de pierrejean , elle garde la totalite du nom !! oups
bonne soirée à vous
au plaisir de vous lire
E et F

 

[pierrejean]

Re : Activesheet.name : supprimer les 8 premieres lettres du nom ?

Re

j'ai cru que "planning" figurait dans tous les noms

une autre proposition:

Sheets("parametres").Range("j1").Value =Replace(ActiveSheet.Name, Left(Activesheet.name,8),"")

 

[Dranreb]

Re : Activesheet.name : supprimer les 8 premieres lettres du nom ?

Bonsoir
Il y a aussi Mid$(ActiveSheet.Name, 9)
Cordialement

 

[Evelynetfrancois]

Re : Activesheet.name : supprimer les 8 premieres lettres du nom ?

bonsoir
je vous remercie une fois de plus pour tous ces compléments d informations
la proposition de Dranreb me plait bien aussi !! merci
encore un grand merci à vous tous pour tout ..;;.
E et F