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😀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
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
