non de la feuil en a1

[malek-farid]

bonjour

je sollicite votre aide carre j'ai un petit problème je souhaiterais que le non de la feuil unique s'inscrit dans une cellule a 1
comme dans l'exemple que je joint

merci

 

[tototiti2008]

Re : non de la feuil en a1

bonjour malek-farid,

Peut-être

=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"

 

[Dranreb]

Re : non de la feuil en a1

Bonjour.
Parmi de nombreuses solutions, cette fonction vba :

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 :

=NomFeui()

Cordialement.

 

[néné06]

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

 

[Victor21]

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)