non de la feuil en a1

tototiti2008

XLDnaute Barbatruc

• 8 Mai 2012

• #2

Re : non de la feuil en a1

bonjour malek-farid,

Peut-être

Code:

=DROITE(CELLULE("filename";A2);NBCAR(CELLULE("filename";A2))-CHERCHE("]";CELLULE("filename";A2)))

si ça ne marche pas, essaye de remplacer "filename" par "nom de fichier"

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Mai 2012

• #3

Re : non de la feuil en a1

Bonjour.
Parmi de nombreuses solutions, cette fonction vba :

VB:

Function NomFeui(Optional ByVal Cel As Range) As String
If Cel Is Nothing Then Set Cel = Application.Caller
NomFeui = Cel.Worksheet.Name
End Function

Et en A1 :

Code:

=NomFeui()

Cordialement.

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 8 Mai 2012

• #4

Re : non de la feuil en a1

Bonjour Tototiti2008,bonjour Malek-farid

Une autre solution

En this Workbook


Private Sub Workbook_Open()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Cells(1, 1) = Sheets(i).Name
Next
End Sub

A+

Edit bonjour dranreb

 

Dernière édition: 8 Mai 2012

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 8 Mai 2012

• #5

Re : non de la feuil en a1

Bonjour à tous.

Avec les macros Excel4 ?
Insertion, nom, "nom" = LIRE.DOCUMENT(1)
Et dans une cellule quelconque de vos feuilles :

=STXT(nom;CHERCHE("]";nom)+1;9^9)

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif