decomposer le nom de feuilles et recuperer une partie dans une colonne

[dj.run]

bonjour à tous,

je me demandais si il etait possible de decomposer le nom des feuilles et de recuperer une partie de ce nom dans une colonne ?

je fait une "importation" de données de plusieurs feuilles d'un meme fichier vers un autre fichier (sur une feuille) via une macro, les feuilles de depart ont toutes un nom ex: 1d03, 2d03,3d03, etc....

je voudrai si c'est possible recuperer les deux derniers carracteres (03) de ces noms dans une colonne au moment de l'importation .

je ne sais pas si c'est possible et je ne sais pas comment le faire .

merci pour toute l'aide qui pourra m'etre fournie .

bonne journée à tous .

@+ dj.run

 

[michel]

Bonjour Djrun

la procedure ci dessous liste les deux dernieres caracteres du nom de chaque feuille ( utilisation de la fonction Right )
par exemple right(valeur,2) , recupere les 2 caracteres de Valeur à partir de la droite

dans la macro les valeurs s'incrémentent dans la feuille active , depuis la cellule A1

Sub FinNomFeuilles()
Dim cible As Byte
For cible = 1 To ThisWorkbook.Sheets.Count
Cells(cible, 1) = Right(Sheets(cible).Name, 2)
Next
End Sub


bonne journée
Michel

 

[dj.run]

re à tous,

merci Michel pour ton aide,

je vais essayer d'adapter ce code à mon projet.

bonne journée .

@+ dj.run