Copier et renommer onglet VBA

Bonjour,

je souhaiterais copier et renommer des onglets intitulés "Semaine" par "Semaine 1", "Semaine 2", "Semaine 3"etc..=> petite précision mon classeur commence à "Semaine 6" => donc ça sera "Semaine 7", "Semaine 8", Semaine 9", etc..

J'ai essayé la formule suivante, qui renouvelle les onglets mais sans copier leur contenu . Pourriez-vous m'aider la dessus?

Sub CopySheetRename()

With ActiveWorkbook.Sheets

.Add after:=Worksheets(Worksheets.Count)

End With

ActiveSheet.Name = "Semaine " & Worksheets.Count

End Sub

Merci beaucoup!

jj

Une proposition

Dim i%
For i = 1 To 52
With ActiveWorkbook.Sheets
.Add after:=Worksheets(Worksheets.Count)
End With
ActiveSheet.Name = "Semaine " & i
Next i

Rebonjour et merci!

un petit problème cela dit : j'ai un debogage sur la partie ActiveSheet.Name = "Semaine " & i

quand j'active la macro la nouvelle feuille se nomme "Feuil4"

Merci!

Bonjour,

Essaie ainsi :

Sub CréerSem()
    Dim i%
    For i = 1 To 52
        With Worksheets.Add(after:=Worksheets(Worksheets.Count))
            .Name = "Semaine " & i
        End With
    Next i
End Sub

Cordialement.

Bonjour à tous

Je t'avais fait ceci, sachant que tu commences à semaine 7, et avec la copie de ta feuille semaine 6 vers toutes les autres .

Est-ce cela ??

Sub CreationFeuillescopie()
Dim i%
For i = 7 To 52
    With ActiveWorkbook.Sheets
    .Add after:=Worksheets(Worksheets.Count)
End With
ActiveSheet.Name = "Semaine " & i
ThisWorkbook.Worksheets("Semaine " & i - 1).Cells.Copy ThisWorkbook.Worksheets("Semaine " & i).Cells
Next i

End Sub

A+ et coucou à MFerrand au passage

Bonjour Patty,

ça marche super!

dernier élément je ne souhaite pas que les 52 semaines soient copiées immédiatement..je préfère insérer un bouton pour renouveler chaque semaine moi même

c'est possible?

Re

Voici un fichier avec bouton.

A tester

Bye

parfait!

MErci beaucoup beaucoup Patty (et MFerrand également)

vous êtes au top