J
Jimmy GONNET
Guest
Bonjour,
Je souhaiterais que vous m'aidiez a scripter cela car je fait des copies de ma pages templates pour les 52 semaines d'une année et il faudrait que je recopie cela 52 en modifiant ... Est-ce possible de faire ca via une variable ou autre :
Sheets('Template').Select
Sheets('Template').Name = 'S01'
Sheets('S01').Select
'N° de Week (ici Week 1)
Sheets('S01').Range('B1') = 1
'Date de la semaine Suivante
Sheets('S01').Range('B2') = '02/01/2006'
Sheets('S01').Copy After:=Sheets(3)
Sheets('S01 (2)').Select
Sheets('S01 (2)').Name = 'S02'
Sheets('S02').Select
'N° de Week (ici Week 2)
Sheets('S02').Range('B1') = '=S01!$B$1+1'
'Date de la semaine Suivante
Sheets('S02').Range('B2') = '=S01!$B$2+7'
Sheets('S02').Copy After:=Sheets(4)
Sheets('S02 (2)').Select
Sheets('S02 (2)').Name = 'S03'
Sheets('S03').Select
'N° de Week (ici Week 3)
Sheets('S03').Range('B1') = '=S02!$B$1+1'
'Date de la semaine Suivante
Sheets('S03').Range('B2') = '=S02!$B$2+7'
Merci pour votre aide.
Je souhaiterais que vous m'aidiez a scripter cela car je fait des copies de ma pages templates pour les 52 semaines d'une année et il faudrait que je recopie cela 52 en modifiant ... Est-ce possible de faire ca via une variable ou autre :
Sheets('Template').Select
Sheets('Template').Name = 'S01'
Sheets('S01').Select
'N° de Week (ici Week 1)
Sheets('S01').Range('B1') = 1
'Date de la semaine Suivante
Sheets('S01').Range('B2') = '02/01/2006'
Sheets('S01').Copy After:=Sheets(3)
Sheets('S01 (2)').Select
Sheets('S01 (2)').Name = 'S02'
Sheets('S02').Select
'N° de Week (ici Week 2)
Sheets('S02').Range('B1') = '=S01!$B$1+1'
'Date de la semaine Suivante
Sheets('S02').Range('B2') = '=S01!$B$2+7'
Sheets('S02').Copy After:=Sheets(4)
Sheets('S02 (2)').Select
Sheets('S02 (2)').Name = 'S03'
Sheets('S03').Select
'N° de Week (ici Week 3)
Sheets('S03').Range('B1') = '=S02!$B$1+1'
'Date de la semaine Suivante
Sheets('S03').Range('B2') = '=S02!$B$2+7'
Merci pour votre aide.