Récuperation du nom d'une feuille -> cellu
Résolu
cosynm
Messages postés
4
Statut
Membre
-
cosynm Messages postés 4 Statut Membre -
cosynm Messages postés 4 Statut Membre -
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
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
A voir également:
- Récuperation du nom d'une feuille -> cellu
- Comment imprimer en a5 sur une feuille a4 - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Bruler feuille de laurier - Guide
- Comment recuperer une video sur youtube - Guide
4 réponses
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
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
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
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
