Copyafter (Calendrier annuel)

[claudy]

Bonjour...
une feuille Janvier 03...OK
Je voudrais recopier par macro cette feuille, de février 03 à Décembre 03!
en sachant que ActiveSheet.Name = Format(Range("B1").Value, "mmmm yy")
J'ai essayé avec copy after... mais je bug et rebug
Merci d'avance,
A+
Claudy( Pour Mac OS X)

 

[Ben]

Salut Claudy,

ben moi g essayé avec Copy after, et ca marche!!

alors ca vient peut etre du Mac OS...une fois de plus! car je suis sur PC.
Enfin, voici quand meme ma macro :

Sub copyfeuille()

Sheets("Janvier 03").Copy After:=Sheets(1)
Sheets(2).Select
Range("B1").Value = "28/02/03"
Sheets(2).Name = Format(Range("B1").Value, "mmmm yy")

End Sub

@+, Ben

 

[claudy]

ok ben jusque là , ça marche( même avec Mac) , mais pour les autres mois???
A+
Claudy

 

[Ben]

Tiens :

For i = 1 To 12

Sheets(i).Copy After:=Sheets(i)
Sheets(i + 1).Select
Range("B1").Value = "28/0" & i + 1 & "/03"
Sheets(i + 1).Name = Format(Range("B1").Value, "mmmm yy")

Next i

par contre ca chie pour la derniere feuille, mais en changeant un peu la boucle (i de 0 à 11 avec des i+1 et i+2), ca doit passer!!

@+, Ben

 

[Ben]

Ouh ouh...y'a quelqu'un? je voulais juste savoir si tu avais eu le temps d'essayer...savoir si ca marche quoi?

 

[claudy]

Voilà...j'arrive!
Sorry de répondre avec 15 heures de retard...
J'ai trouvé, et adapté suivant mes besoins:

Sub Annee1_12_mois()

For i = 12 To 2 Step -1
Sheets("janvier 03").Copy after:=Sheets(1)
Range("B1").FormulaLocal = "=date(2003;" & i & ";1)"
Range("B1") = (Range("B1"))
ActiveSheet.Name = Format(Range("B1").Value, "mmmm yyyy")
'Exit Sub
Next

End Sub
encore merci, et a+
Claudy

 

[Ben]

de rien! salut!!

@+, Ben

B)