Récupérer le nom d'une feuille Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
A
ACDL
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 23 mai 2016
Version d'Excel : 2013 FR

Message par ACDL » 2 juillet 2017, 09:02

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
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 2'188
Appréciations reçues : 243
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 2 juillet 2017, 09:18

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,
RecupNom.xlsm
(15.47 Kio) Téléchargé 133 fois
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'190
Appréciations reçues : 14
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 2 juillet 2017, 09:47

Bonjour,
par formule :
=DROITE(CELLULE("nom de fichier");NBCAR(CELLULE("nom de fichier"))-TROUVE("]";CELLULE("nom de fichier")))
Modifié en dernier par Raja le 2 juillet 2017, 09:49, modifié 1 fois.
Cdlt,
Raja
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'843
Appréciations reçues : 364
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 2 juillet 2017, 09:49

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 !
A
ACDL
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 23 mai 2016
Version d'Excel : 2013 FR

Message par ACDL » 2 juillet 2017, 15:28

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.
RecupNom automatique.xlsm
(20.74 Kio) Téléchargé 120 fois
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 2'188
Appréciations reçues : 243
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 2 juillet 2017, 18:47

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,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 9'428
Appréciations reçues : 405
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 2 juillet 2017, 19:11

Bonjour,

si tu prends la version formule la mise à jour est permanente.
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 2'188
Appréciations reçues : 243
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 2 juillet 2017, 19:52

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 ;;)
Test ACDL V2 - Copie.xlsm
(21.82 Kio) Téléchargé 68 fois
1 membre du forum aime ce message.
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
A
ACDL
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 23 mai 2016
Version d'Excel : 2013 FR

Message par ACDL » 2 juillet 2017, 21:49

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.
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 9'428
Appréciations reçues : 405
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 2 juillet 2017, 23:29

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
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message