Cree une nouvelle feuille dont leur nom est la valeur d'une cellule

je vx cree une nouvelle feuille en fonction de la valeur d'une cellule

dans cette cellule la formule isoweeknum

nom du nouvelle feuille sera valeur de la cellule + 1 (la semaine suivante)

voici mon code

  Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("C3").Value <> "" Then
    ActiveSheet.Name = wh.Range("A3").Value
    End If
 wh.Activate

Bonjour,

Teste comme ceci

 Dim wh As Worksheet
  Set wh = Worksheets(ActiveSheet.Name)
  ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("C3").Value <> "" Then
      ActiveSheet.Name = wh.Range("A3").Value + 1
    End If
  wh.Activate

merci pour votre repense mais ça n'a pas marché

bonjour,

alors cette feuille existe déjà ? Si cela est le cas, l'alternative est ...

Set wh = Worksheets(ActiveSheet.Name)
ActiveSheet.Copy After:=Worksheets(Sheets.Count)

c'est mieux d'écrire ...

 Set wh = ActiveSheet
 ActiveSheet.Copy After:=Worksheets(Worksheets.Count)  ou sheets(sheets.Count) mais pas un mélange !!!

ca na pas marche

jai un planning chaque semaine , quond je termine la 1er semaine ce macro va copier le meme tableau et cree une feuille dont le nom est la semaine suivante (la cellule dans la feuille existante ou il ya la formule ISOWEEKNUM va incrementer et le nomme

par exemple la feuille existante est S1 quond je click sur semaine suivante ila va cree une 2eme feuille aven le nom S2

re,

ce n'est pas ce que le titre dit ...

     Dim wh    As Worksheet
     Set Sh = ActiveSheet
     Sh.Copy After:=Worksheets(Sheets.Count)
     ActiveSheet.Name = Left(Sh.Name, 1) & Mid(Sh.Name, 2) + 1     'premier lettre + reste du string+1
     Sh.Activate

oke parfait ca marche, merci beaucoup