cibleo
XLDnaute Impliqué
Bonsoir le forum,
Dans le module 1 du fichier joint, j'ai ce code qui me permet d'insérer des feuilles nommées aux 365 jours de l'année.
En B1 de chaque feuille, figure également la mention "Planning du" & jour de la feuille active.
Ce que j'aimerais faire, c'est copier la plage (A1:L15) de ma feuille "Planning" qui me sert de modèle.
En résumé, il s'agit de recopier 365 fois ma feuille "Planning" avec la mention "Planning du ...Nom de la feuille"
De plus serait-il possible de mettre en majuscule la 1ère lettre du Jour figurant en B1.
Pouvez-vous m'aider ?
Amicalement Cibleo
Bonne soirée à tous.
Dans le module 1 du fichier joint, j'ai ce code qui me permet d'insérer des feuilles nommées aux 365 jours de l'année.
En B1 de chaque feuille, figure également la mention "Planning du" & jour de la feuille active.
Ce que j'aimerais faire, c'est copier la plage (A1:L15) de ma feuille "Planning" qui me sert de modèle.
Code:
Sub Calendjourfeuille()
Application.ScreenUpdating = False
année = Val(InputBox("Quelle année ?"))
If année = 0 Then Exit Sub
x = DateSerial(année, 1, 1)
y = DateValue("31 décembre " & année)
For i = 0 To y - x
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(x + i, "dddd dd mmmm yyyy")
[B1] = "Planning du " & ActiveSheet.Name
Next
End Sub
En résumé, il s'agit de recopier 365 fois ma feuille "Planning" avec la mention "Planning du ...Nom de la feuille"
De plus serait-il possible de mettre en majuscule la 1ère lettre du Jour figurant en B1.
Pouvez-vous m'aider ?
Amicalement Cibleo
Bonne soirée à tous.