Macro nouvelle année

S

snake38

Guest
Bonjour,

Voila j'ai pu obtenir par l'intermediaire d'un utilisateur très sympa cette macro pour mon fichier:

Sub Nouvelle_feuille()
Dim feuille As Worksheet
Dim mois As Date

ActiveSheet.Copy after:=Sheets(Sheets.Count)
With ActiveSheet
Set feuille = Sheets(Sheets(.Index - 1).Name)
mois = DateAdd('m', 1, CDate(feuille.Name))
.Name = Format(mois, 'mmmm yy')
.Range('E5') = feuille.Range('e79')
.Range('A2') = UCase(MonthName(Month(mois)))
.Range('E7:E2000,A5:D2000').ClearContents
.Range('A5:D79').ClearComments
.Range('b5') = 'Report solde du mois de ' & feuille.Range('A2')
End With

End Sub

Seulement lorsque je créer la feuille de janvier j'ai bien l'année 2006 mais lorsque je passe a février je reviens a 2005

De quoi cela peut il bien venir avez vous une idée??

Merci d'avance pour vos réponse
 

Discussions similaires

Réponses
3
Affichages
235
Réponses
1
Affichages
704
Réponses
8
Affichages
203

Statistiques des forums

Discussions
300 890
Messages
1 988 169
Membres
210 095
dernier inscrit
Ratahiry