jean123
XLDnaute Occasionnel
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
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
Code:
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