Nom onglet dans cellule

bonjour,

y'a t-il une formule pour que dans H2 je retrouve le nom de l'onglet ? ou faut-il passer par du VBA ,

cdt

Francky

Bonjour

essayes

=STXT(CELLULE("nomfichier";$A$1);TROUVE("]";CELLULE("nomfichier";$A$1))+1;50)

Il faut avoir enregistrer le fichier pour que cela fonctionne

Merci Banzaï,

en fait j'ai un planning hebdo qui se complête automatiquement à partir d'une base de données et j'ai une macro qui va me créer 52 feuilles avec nommé 1 puis 2... et comme le remplissage ce fait à partir du numéro de semaine je voulais copier ce chiffre dans la cellule.

encore merci

Francky

Bonjour

Francky69100 a écrit :

j'ai une macro qui va me créer 52 feuilles

Utilises cette macro pour noter le nom de la page dans .... la page

re-banzaï,

voici le code pour copier mes onglets :

Sub copyongletXfois()
'declare
Dim numsemaine As String
Dim wrkcpy As Worksheet
Dim mywork As Workbook
Dim wrksource As Worksheet
Dim i As Long

'init
Set mywork = ActiveWorkbook
Set wrksource = mywork.ActiveSheet

'work
For i = 1 To 52
    wrksource.Copy After:=Worksheets(ThisWorkbook.Sheets.Count)
    If Len(i) = 1 Then
       numsemaine = "S0" & i
    Else
        numsemaine = "S" & i
    End If
    ActiveSheet.Name = numsemaine
Next
End Sub

alors, je veux plus qui nomme les onglets "S01" puis "S02" mais tout simplement 1 puis 2.

l'original je pensais la nomé "0" (lignes que j'ai surlignées).

Et donc je voudrais qu'il me mette le nom de l'onglet dans la cellule "H2" de chaque feuille.

Je suis pas sur d'être clair...

Francky

Bonjour

Si j'ai bien compris

Sub copyongletXfois()
'declare
Dim numsemaine As String
Dim mywork As Workbook
Dim wrksource As Worksheet
Dim i As Long

  Application.ScreenUpdating = False
  'init
  Set mywork = ActiveWorkbook
  Set wrksource = mywork.ActiveSheet

  'work
  For i = 1 To 52
    wrksource.Copy After:=Sheets(Sheets.Count)
    With ActiveSheet
      .Name = i
      .Range("H2") = i
    End With
  Next i
End Sub

Merci ça marche à la perfection, sauf que je n'aurait pas du lancer la macro sur tableau rempli de formule, ça fait 1/4 d'eure qu'il compil... Fraudra que je revois ça sous VBA

MERCI

fRANCKY