Récupérer le nom d'une feuille

Bonjour,

Je souhaite récupérer le nom d'une feuille de manière à l'afficher dans le titre de mon tableau, associé à d'autres caractères. La fonction Feuille ne me permet de récupérer que le numéro de feuille. Existe-t-il une fonction pour ça ?

Merci

Bonjour ACDL, le forum,

Un essai:

Par VBA :

Sub RecupNomFeuille()

Dim Nom
Nom = Sheets(1).Name        'nom de la feuille 1
Range("B2") = Nom             'B2 =cellule titre du tableau

End Sub

Cordialement,

Bonjour,

par formule :

=DROITE(CELLULE("nom de fichier");NBCAR(CELLULE("nom de fichier"))-TROUVE("]";CELLULE("nom de fichier")))

Bonjour à tous

Pour compléter la proposition de xorsankukai, voici la formule à coller dans la cellule où tu veux mettre le nom de la feuille :

=STXT(CELLULE("NomFichier");TROUVE("]";CELLULE("NomFichier"))+1;50)

Bye !

Merci,

Çà fonctionne. Serait-il possible d'automatiser la macro à chaque changement de nom ou création de feuille par exemple ou à l'ouverture du fichier ? Voir fichier joint, feuille 2DE.

Merci.

Bonsoir ACDL, le forum,

Un début de réponse :

Code à placer this workbook: A chaque ajout de feuilles, le nom de l'onglet s'inscrit en A1

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Cells(1, 1) = ActiveSheet.Name    'cellule titre du tableau [1(ligne),1(colonne)]
End Sub

Cordialement,

Bonjour,

si tu prends la version formule la mise à jour est permanente.

eric

Bonsoir ACDL, le forum,

Nouvelle version :

Code à placer this workbook:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

x = Sheets("Base").Range("A1").Value
y = Sheets("Base").Range("B1").Value

If ActiveSheet.Name <> "Base" Then
'Cells(1, 1) = ActiveSheet.Name & "  " & x & "  " & y 'cellule titre du tableau [1(ligne),1(colonne)]
Range("B2").Value = ActiveSheet.Name & "  " & x & "  " & y 'cellule titre du tableau B2
End If

End Sub

Cordialement,

PS : Cela reste du "bricolage", je te conseille vivement de suivre l'avis des pros par formule

Bonsoir,

Ta solution "bricolage" me va très bien, d'autant que la version formule des pros, ne fonctionne pas chez moi. J'ai du louper un truc pour la formule.

Merci de ton aide.

pour la fonction saisis =CELLULE( dans une cellule et regarde le nom du paramètre proposé dans la liste (du style "nomfichier"), des fois que ça varie selon la version excel.

Et il faut que le fichier soit enregistré pour avoir un nom.

eric

Ok Eric, mais la liste des paramètre je la trouve où ?

Quand tu saisis une fonction excel déroule la liste des possibilités pour les paramètres à choix quand tu arrives à sa saisie (enfin à partir de 2007)

eric

Bonjour,

Je dois avoir une version particulière d'Excel, car la liste des arguments ne s'affiche à aucun moment lors de la saisie de la fonction dans la formule. Ou bien il y a un paramètre à activer dans excel. pour que cela se produise.

En tout cas merci pour assistance.

Bonjour,

rien à activer, et sur 2013 tu dois l'avoir. Ca donne ça :

eric

Effectivement, la liste apparaît. Mais il faut, comme tu l'as écrit, SAISIR la fonction. Ce que je ne faisais pas.

Merci bcp.