Enregistrer 2 dernières feuilles

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

Bonjour,

Je ne vois pas bien ce que tu veux dire par "enregistrer les deux dernières feuilles d'un classeur (au même nom) dans un nouveau classeur..." mais voici un code qui te donne les deux dernières feuilles de la collection en ne prenant en compte que les feuilles de calcul :

Sub Test()

    Dim AvDerFe As Worksheet
    Dim DerFe As Worksheet

    'Worksheets et non Sheets pour ne prendre en compte que les feuilles de calcul !
    Set AvDerFe = Worksheets(Worksheets.Count - 1)
    Set DerFe = Worksheets(Worksheets.Count)

    MsgBox AvDerFe.Name & vbCrLf & DerFe.Name

End Sub
Rechercher des sujets similaires à "enregistrer dernieres feuilles"