création d'une copie d'une page chaque semaine qui se renomme avec le n° de la semain

[nebinois]

Bonjour,

J'aimerais sur le document qui suis faire automatiquement la chose suivante:
J'ai le fichier excel ci-joint avec la feuille "S45".
J'aimerais que Lundi se crée sur ce même fichier excel une feuille contenânt les mêmes éléments mais qui se nomme elle "S46".
D'avance merci pour votre aide!

 

[unrender]

Re : création d'une copie d'une page chaque semaine qui se renomme avec le n° de la s

Voilà pour toi :

Private Sub Workbook_Open()
Dim NumSem As Byte
NumSem = DatePart("ww", Date, 2, 2)
For Each sh In Sheets
    If sh.Name = "S" & NumSem Then Exit Sub
Next
If Weekday(Date) = vbMonday Then
    Sheets("S45").Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = "S" & NumSem
End If
End Sub

 

[nebinois]

Re : création d'une copie d'une page chaque semaine qui se renomme avec le n° de la s

Salut,

Merci pour ton aide SUPER!