macro pour nommer plusieurs feuilles

[jacques]

bonjour a tous

sur ma feuil 1 en b4 je dois rentrer une date de début : ex : 01 /01/05
en c6 j'ai la même date et en c8 j'ai une formule me calculant la fin de ma semaine à savoir c6 +6 en format date

comment faire à l'aide d'une macro pour que dès que je saisisse en b4 ma date de début excel me recopie le tableau b6 a h31 de la feuil 1 corrrespondant à des horaires avec les formules et les mises en page sur 52 semaines en me nommant chaque onglet à partir de la date se trouvant en c6
la feuil2 est la copie de la feuil 1 avec une formule permettant de calculer la date de la seconde semaine à savoir feuil1!+2

merci de votre aide à tous et bon week end

jack

 

[Creepy]

Hello all,

Voic un bout de code que j'avais qui me recopiait 52 fois la feuil1 en changeant son nom.

Je m'en servais pour créer une feuille par semaine de l'année.
Cette macro gère les semaines flottantes (tu peux commencer à 36, le nom revient à semaine 1 apres la 52eme).

++

Creepy

Private Sub CommandButton1_Click()

Dim I As Integer
I = Range("a1").Value + 1

Dim T As Integer

For T = 1 To 52
Sheets("Feuil1").Select
Sheets("Feuil1").Copy After:=Sheets(T)
Sheets("Feuil1 (2)").Select

Sheets("Feuil1 (2)").Name = "SEM " & I
Sheets("SEM " & I).Range("A1").Value = "Semaine " & I
I = I + 1
If I = 53 Then
I = 1
End If
Next
End Sub

 

[jacques]

merci pour l 'aide je vais le tester tout de suite
a plus salut

jack

 

[CHti160]

Salut" jacques"et"Crepy"
en pièce jointe une de mes bidouilles qui tourne mais demande à être améliorée je n'ai pas traité la copie de formules mais le reste oui
quelques mauvais fonctionnement mais si l'on ferme et que l'on rouvre ça refonctionne donc à voir par des expers lol
A+++
Jean marie