recopier le nom de l'onglet dans une colonne

[Jetlager]

y'a t'il un moyen de recopier le nom de l'onglet de la feuille excell

et ensuite de copier ce nom dans toutes les cellules d'une colonne.

Exemple
fichier xls : toto
onglet : feuil 1
colonne catégorie
de D250

merci si vous avez cette répons que je pourrais mettre dans access vba

 

[excalibur]

bonjour Jetlager le forum tu peus faire un truc comme cela fonction en b1=STXT(CELLULE('filename';A2);TROUVE(']';CELLULE('filename';A2))+1;32) puis une macro Option Explicit
Sub Macro1()
Range('B1').Select
Selection.Copy
Columns('A:A').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range('A1').Select
End Sub salutations ' salutations

 

[Jetlager]

Merci beaucoup Excalibur

ton code m'est précieux, il m'aidera je suis sur à d'autres réalisations.

@ Bientôt