Ce navigateur n’est plus pris en charge.
Effectuez une mise à niveau vers Microsoft Edge pour tirer parti des dernières fonctionnalités, des mises à jour de sécurité et du support technique.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Bonjour à tous,
Excel VBA : comment récupérer le nom de l'onglet actif dans une cellule de cet onglet ?
Merci d'avance,
Cordialement, Jean-Pierre
Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.
Réponse acceptée par l’auteur de la question
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(108.80000000000001, 78%, 20%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ED%3C/text%3E%3C/svg%3E)
Il faut que le fichier soit enregistré. Avec Excel 365 :
=TEXTE.APRES(CELLULE("nomfichier";A1);"]")
Avec les autres versions :
=STXT(CELLULE("nomfichier";A1);CHERCHE("]";CELLULE("nomfichier";A1))+1;9^9)
Daniel
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(160, 33%, 25%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EH%3C/text%3E%3C/svg%3E)
Bonjour,
Perso je ne comprend pas ce que tu veux, VBA ou pas VBA !
"mais ce derbier ne marche pas !" Pourquoi ?
Sinon
=CHOISIRCOLS(FRACTIONNER.TEXTE(CELLULE("nomfichier");"]");2)
Merci DanielCo
Plus rapide et plus pertinent que chatgpt !
Mais j'ai mal posé ma question :
Comment récupérer dans une cellule le nom de l'onglet actif sans passer par VBA ?
eemple =ActiveSheet.Name
mais ce derbier ne marche pas !
Cordialement Jean-Pierre
Bonjour,
Range("A1")=ActiveSheet.Name
Daniel