Bonsoir
Voilà ma macro marche bien mais je voudrais bien y integre à la repetition la feuille "Masque"
Pour obtenir 52 Onglets (correspondant aux semaines)
avec la feuille "Masque" integré dans chaque onglet.
*******************************
Sub Macro1()
Dim premierLundi, i As Integer, y As Integer, z As Integer
premierLundi = DateSerial(2009, 1, 5) - Weekday(DateSerial(2009, 1, 3))
For i = 1 To 3
Sheets.Add After:=Worksheets(Sheets.Count)
ActiveSheet.Name = "Sem" & i
For y = 1 To 6
Range("A1").Cells(134, y) = CDate(premierLundi) + z
z = z + 1
Next y
Range("A1").NumberFormat = "dddd d mmmm"
z = z + 2
Range("G1").Value = "Sem" & i
Next i
End Sub
*************************************
Voilà ma macro marche bien mais je voudrais bien y integre à la repetition la feuille "Masque"
Pour obtenir 52 Onglets (correspondant aux semaines)
avec la feuille "Masque" integré dans chaque onglet.
*******************************
Sub Macro1()
Dim premierLundi, i As Integer, y As Integer, z As Integer
premierLundi = DateSerial(2009, 1, 5) - Weekday(DateSerial(2009, 1, 3))
For i = 1 To 3
Sheets.Add After:=Worksheets(Sheets.Count)
ActiveSheet.Name = "Sem" & i
For y = 1 To 6
Range("A1").Cells(134, y) = CDate(premierLundi) + z
z = z + 1
Next y
Range("A1").NumberFormat = "dddd d mmmm"
z = z + 2
Range("G1").Value = "Sem" & i
Next i
End Sub
*************************************