enregistrer feuille

[jean123]

bonjour,

je souhaiterai enregistrer les deux dernières feuilles d'un classeur (au même nom) dans un nouveau classeur nommé a la date du mois en cours

j'ai essayé avec Sheets.Count mais je ne sais pas faire pour les deux dernières feuilles

 

[Staple1600]

Bonsoir à tous

Essaie de t'inspirer de ce qui suit

Sub a()
MsgBox Sheets(Sheets.Count).Name
MsgBox Sheets(Sheets.Count).Previous.Name
End Sub

 

[JCGL]

Bonjour à tous,

Peux-tu essayer avec :

Sheets(Sheets.Count - 1).Activate

A+ à tous

 

[Staple1600]

ReBonsoir JCGL

Désolé, un chouia

 

[jean123]

j'ai tester ça mais en vain

Sub classeur()

Dim wk As Workbook
Dim ws As Worksheet

    Set wk = Workbooks.Add(xlWBATWorksheet)
    Set ws = ThisWorkbook.Worksheets(Sheets.Count - 1)
    ws.Copy After:=wk.Sheets(Sheets.Count)
   
Dim nom, chemin As String
    nom = MonthName(Month(Date) - 5) & "_" & MonthName(Month(Date) - 1) & "_" & "test"
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub

mais sur la ligne

   Set ws = ThisWorkbook.Worksheets(Sheets.Count - 1)

j'ai une erreur

 

[Staple1600]

Re

jean23
Et tu as testé ma macro (celle du message#2)?

 

[jean123]

le but serai d'enregistrer les deux dernières feuilles dans un nouveau classeur (contenant uniquement ces deux feuilles)
peu t’on sélectionner deux feuille en même temps pour les copier?

 

[jean123]

elle se base sur le nom des feuilles ?

 

[jean123]

je vient de comprendre ta macro lol

 

[jean123]

je fait des test et je revient vers toi

 

[Staple1600]

Re

En attendant ton retour, cette macro semble faire ce que tu dis vouloir faire
enregistrer les deux dernières feuilles d'un classeur dans un nouveau classeur en le renommant avec le nom du mois en cours.

Sub a()
Dim strPath As String
Dim t As Variant, WBK As Workbook
strPath = ThisWorkbook.Path & "\"
t = Array(Sheets(Sheets.Count).Name, Sheets(Sheets.Count).Previous.Name)
Sheets(t).Copy
Set WBK = ActiveWorkbook
WBK.SaveAs strPath & Format(Date, "mmmm-yyyy") & ".xlsx", 51
'finalement je me corrige moi-même ;-)
WBK.Close True
End Sub

test ok sur mon PC.

 

[jean123]

bon bin je vois pas

 

[jean123]

ahhh je comprend mieux

 

[jean123]

peu tu m'expliquer stp "dim t as varaint"

 

[jean123]

variant c'est un four tout ?