Récuperation du nom d'une feuille -> cellu

Résolu/Fermé
cosynm Messages postés 4 Date d'inscription mercredi 22 août 2007 Statut Membre Dernière intervention 12 avril 2013 - 22 août 2007 à 14:19
cosynm Messages postés 4 Date d'inscription mercredi 22 août 2007 Statut Membre Dernière intervention 12 avril 2013 - 24 sept. 2007 à 12:32
Bonjour à tous,

J'aimerais récuperer le nom d'une feuille excel afin de ma mettre dans une cellule et sans passer par une prgramation VB.

Je vous remercie à l'avance.

Bonne journée

4 réponses

Furtif Messages postés 9887 Date d'inscription lundi 25 avril 2005 Statut Contributeur Dernière intervention 8 mars 2010 927
22 août 2007 à 15:08
Salut

Regarde dans les astuces CCM, là : excel chemin et nom de stockage de feuille de calcul
0
cosynm Messages postés 4 Date d'inscription mercredi 22 août 2007 Statut Membre Dernière intervention 12 avril 2013
22 août 2007 à 15:20
Merci de ta réponse,

Mais le soucis c'est qu'avec la commande :

=CELLULE("nomfichier";A1)

Il affiche dans la cellule le chemin du fichier, et je désirais qu'il n'affiche que l'onglet.

Encore merci

Bon après midi
0
Furtif Messages postés 9887 Date d'inscription lundi 25 avril 2005 Statut Contributeur Dernière intervention 8 mars 2010 927
22 août 2007 à 15:53
Bon, alors essaie ça :

Tu fais Alt F11, puis tu double-cliques sur Feuil1, puis tu Copies/colle ceci :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim I As Integer
For I = 2 To Worksheets.Count
Range("A" & I).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, _
Address:="", _
SubAddress:=Worksheets(I).Name & "!A1", _
TextToDisplay:=Worksheets(I).Name
Next
Cancel = True
End Sub

0
cosynm Messages postés 4 Date d'inscription mercredi 22 août 2007 Statut Membre Dernière intervention 12 avril 2013
24 sept. 2007 à 12:32
Merci à tous de votre aide...
J'ai pue trouver une solution dans une de vos propositions.
Bonne journée à tous
Et bonne continuation ...
0