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

nebinois · 8 Novembre 2013

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 · 8 Novembre 2013

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

Voilà pour toi :

Code:

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 · 11 Novembre 2013

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!

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

nebinois

XLDnaute Nouveau

Pièces jointes

unrender

XLDnaute Junior

Pièces jointes

nebinois

XLDnaute Nouveau

Discussions similaires