M
Marc_du_78
Guest
Bonjour le Forum,
Je ne suis pas arrivé à me loguer alors tant pis.
Une grande question pour moi. Que faut-il modifier dans cette partie de code pour que la date saisie dans le TextBox1 se reporte dans la cellule B2 au format date (Ex. Lundi 6) et que la première lettre du jour soit en majuscule si possible.
With WSNew
.Cells(1, 2) = 'Semaine : ' & Format(MyWeek, '00')
.Cells(1, 3) = 'Du ' & Format(MyMonday, 'DDDD DD MMMM') & ' au ' & Format(MyMonday + 6, 'DDDD DD MMMM YYYY')
For i = 0 To 6
.Cells(1, 3).Cells(2, i) = Format(MyMonday, 'DDDD DD')
MyMonday = MyMonday + 1
Next
End With
En vous remerciant de votre aide.
Je ne suis pas arrivé à me loguer alors tant pis.
Une grande question pour moi. Que faut-il modifier dans cette partie de code pour que la date saisie dans le TextBox1 se reporte dans la cellule B2 au format date (Ex. Lundi 6) et que la première lettre du jour soit en majuscule si possible.
With WSNew
.Cells(1, 2) = 'Semaine : ' & Format(MyWeek, '00')
.Cells(1, 3) = 'Du ' & Format(MyMonday, 'DDDD DD MMMM') & ' au ' & Format(MyMonday + 6, 'DDDD DD MMMM YYYY')
For i = 0 To 6
.Cells(1, 3).Cells(2, i) = Format(MyMonday, 'DDDD DD')
MyMonday = MyMonday + 1
Next
End With
En vous remerciant de votre aide.