supprimer feuilles antérieurs au mois en cour

[vbaleveltwo]

Bonjour

J'essaye sans succès que ceci se produise par vba
à l'ouverture d'un classeur (12 feuilles de janvier à décembre)
copie des n feuilles antérieures au mois courant en n classeur de n feuilles
(n=le nom d'un mois)
ex: si mois(Date)=juillet
création de six classeurs de janvier à juin contenant chacun un feuille, celle de leur mois respectif
puis suppression des six feuilles sauvegardées du classeur d'origine

Merci de m'indiquer une piste de solution

 

[vbaleveltwo]

Voila ou je bloque

Select Case Month(Date)
Case 1
Exit Sub
Case 2
Sheets(Format$(DateAdd("m", -1, Date), "mmmm")).Delete
Case n
.....
......
Case 12
Sheets(Format$(DateAdd("m", -11, Date), "mmmm")).Delete
End Select

Je ne maitrise pas trop les For Each et compagnie

 

[Yeahou]

Bonjour vbaleveltwo

en t'espérant bientôt au level3
vois ce fil et ceux inclus pour des exemples de manipulation de feuilles nommées en dates

<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=96920&t=96749>

Cordialement, A+