cellule egale nom de feuille

Bonjour,

soit à la main, soit par VBA


Dim sh as worksheet
for each sh in Workbooks("ClasseurB.xls").sheets
with Activeworkbook.sheets(1)
.[a65536].end(xlup) (2)=sh.name
end with
next sh


'lSteph

On 5 juil, 19:55, jeje02 <jej...@domain-xyz.in> wrote:

Bonjour,
comment inserrer dans plusieurs cellules le nom des feuilles d'un autre f ichier
xls
merci

LSteph a écrit le 07/07/2010 à 12h41 :

Bonjour,

soit à la main, soit par VBA


Dim sh as worksheet
for each sh in Workbooks("ClasseurB.xls").sheets
with Activeworkbook.sheets(1)
.[a65536].end(xlup) (2)=sh.name
end with
next sh


'lSteph

On 5 juil, 19:55, jeje02 wrote:

Bonjour,
comment inserrer dans plusieurs cellules le nom des feuilles d'un autre f
ichier
xls
merci

SALUT Steph
j'ai pas trop saisi ce code et où le mettre. désolé je suis pas trop calé
Salutation

Bonjour,

selon ta demande tu es sur le classeur
où tu veux voir dans les cellules de la colonneA de la première
feuille
les noms des onglets de l'autre Classeur Ouvert qu' ici j'ai nommé
ClasseurB
dans l'exemple après à toi d'adapter donc pour le code.

'à mettre dans un module standard

Sub masub()
Dim sh as worksheet
for each sh in Workbooks("ClasseurB.xls").sheets
with Activeworkbook.sheets(1)
.[a65536].end(xlup) (2)=sh.name
end with
next sh
end sub

'LSteph

On 7 juil, 12:41, LSteph <gmlst...@gmail.com> wrote:

Bonjour,

soit à la main, soit par VBA

Dim sh as worksheet
for each sh in Workbooks("ClasseurB.xls").sheets
with Activeworkbook.sheets(1)
.[a65536].end(xlup) (2)=sh.name
end with
next sh

'lSteph

On 5 juil, 19:55, jeje02 <jej...@domain-xyz.in> wrote:



> Bonjour,
> comment inserrer dans plusieurs cellules le nom des feuilles d'un autre fichier
> xls
> merci- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -