XL 2010 sauvegarde

[jean123]

bonjour a tous,
Je souhaite enregistrer les trois dernières feuilles de mon classeur dans un nouveau classeur
J'ai une macro qui le fait très bien pour les deux dernières feuilles, mais je ne sais pas faire pour les trois dernières
Besoin d'aide

voici la macro

Sub SAUVEGARDE_MENSUEL()
Dim strPath As String
Dim T As Variant, WBK As Workbook

strPath = "C:\Users\bob\Desktop\ARCHIVE\"
T = Array(Sheets(Sheets.Count).Name, Sheets(Sheets.Count).Previous.Name)
Sheets(T).Copy
Set WBK = ActiveWorkbook
WBK.SaveAs strPath & Format$(DateSerial(Year(Date), Month(Date), 1), "mmmm") & "tuti"
WBK.Close True
End Sub

 

[LaCeline]

jean123, le forum

change :

T = Array(Sheets(Sheets.Count).Name, Sheets(Sheets.Count).Previous.Name)

pour :

T = Array(Sheets(Sheets.Count).Name, Sheets(Sheets.Count - 1).Name, Sheets(Sheets.Count - 2).Name)

LaCéline