Création d'un classeur hebdomadaire

[Eric C]

Bonsoir le forum
Bonsoir à toutes & à tous

Je souhaiterais créer un classeur hebdomadaire comportant 5 feuilles (Lundi à vendredi) ayant pour onglet : "le jour - la date & la semaine".
Avec mes anciennes connaissances acquises grace à vous je n'ai réussi à créer qu'un classeur avec un onglet 🙁 avec ce code :
Private Sub Workbook_open()
Ma_Feuille = Format(Date, "ddd dd mmm yyyy") & " - sem " & DatePart("WW", Date, 2, 2)
ActiveSheet.Name = Ma_Feuille

Vous remerciant par anticipation
Eric c

 

[patoq]

Re : Création d'un classeur hebdomadaire

Bonsoir Eric C , le forum

Private Sub Workbook_open()
Ma_feuille = Format(Date, "ddd dd mmm yyyy") & " - sem " & DatePart("WW", Date, 2, 2)
ActiveSheet.Name = Ma_feuille
    For i = 1 To 4
        Ma_feuille = Format(Date + i, "ddd dd mmm yyyy") & " - sem " & DatePart("WW", Date, 2, 2)
        Worksheets.Add(Worksheets(Worksheets.Count)).Name = Ma_feuille
    Next i
End Sub

Cdt
Patrice

 

[Eric C]

Re : Création d'un classeur hebdomadaire

Re le forum
Bonsoir Patrice

Tout est oki pour moi. Merci à toi. Je commence à regretter d'avoir cessé de m'intéresser à Excel....
Bonne soirée