Recuper le nom de la feuille

Bonjour,

onglet sur une zone de la feuille du client
Supposons en [A1]

En vba dans un module standard

Sub metslesnoms()
Dim sh as worksheet
For each sh in activeworkbook.sheets
sh.[a1]=sh.name
next
end sub

'lSteph

camerboy a formulé la demande :

Bonjour à tous,

J'ai un classeur clients de 60 feuilles environ dont les onglets portent les
noms des clients respectifs, j'aimerais pouvoir mettre le nom de chaque
onglet sur une zone de la feuille du client.

Merci d'avance

CBB

--
- -

Re,
Sans VBA (il faut un classeur enregistré):

sélectionner tous les onglets(groupe de travail),
sur la feuille active sélectionner a1
Entrer cette formule
=STXT(CELLULE("FILENAME";A1);CHERCHE("]";CELLULE("FILENAME";A1))+1;999)

Cdlt.

lSteph

camerboy avait prétendu :

Bonjour à tous,

J'ai un classeur clients de 60 feuilles environ dont les onglets portent les
noms des clients respectifs, j'aimerais pouvoir mettre le nom de chaque
onglet sur une zone de la feuille du client.

Merci d'avance

CBB

--
- -

Bonjour
Avec une macro c'est faisable.
A adapter avec le nom de la feuille sur laquelle tu veux inscrire l'info
(ici c'est Feuil1):
Sub InscrireNomsOnglet()
For i = i to sheets.count
Worksheets("Feuil1").cells(i,1).value = Sheets(i).Name
Next i
End Sub

Cordialement
Pascal

"camerboy" <npl@iccnet2000.com> a écrit dans le message de news:
%235Wucq%23AHHA.4992@TK2MSFTNGP03.phx.gbl...

Bonjour à tous,

J'ai un classeur clients de 60 feuilles environ dont les onglets portent
les noms des clients respectifs, j'aimerais pouvoir mettre le nom de
chaque onglet sur une zone de la feuille du client.

Merci d'avance

CBB