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
2000').ClearContents
.Range('A5
79').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