Dates

bonsoir,

je vais sûrement perdre plus de temps a chercher qu'a l'écrire a la main ,mais je suis curieux de savoir si cela est possible.

j'ai ma macro qui me fait tous mes onglet des 52 semaine de l'année.

est t'il possible qu'elle me remplisse les bonnes dates dans les cellules ?

exemple premiere semaine en

C1 lundi 31

I1 mardi 1

O1 mercredi 2

U1 jeudi 3

AA1 vendredi 4

et puis avec la macro faire les 52 feuilles avec les bonnes dates!!

Sub Semaine()

Dim Boucle As Integer

For Boucle = 2 To 52

Sheets(1).Select

If Boucle = 2 Then

Sheets(1).Copy After:=Sheets(1)

Else

Sheets(1).Copy After:=Sheets(Sheets.Count)

End If

ActiveSheet.Name = "Semaine" & Boucle

Next Boucle

End Sub

cordialement

Bonsoir

Touche de raccourci pour la macro Ctrl+a

Cordialement

1052-sem.zip (10.78 Ko)

merci amadeus !

Rechercher des sujets similaires à "dates"