Classeur Archive avec plusieurs feuilles VBA

Question

Bonjour, Je viens vers vous car j'ai un petit problème ! j'ai un classeur résultats avec 2 feuilles : Mois m-1 et Mois en cours. en gros, je sauvegarde les résultats du m-1 dans un classeur archive et je copie colle le mois en cours dans le m-1 a la fin du mois pour passer au mois suivant. Le problème, c'est lorsque j'archive le m-1, il m'écrase la sauvegarde précédente. or j'aimerais qu'il ouvre le nouveau m-1 dans une nouvelle feuille du classeur archive (si possible qu'il le renomme en fonction du mois) voici mon code pour l'instant :

Sub Archiver()

Dim c As Workbook

Dim f As Worksheet

Dim r As Range

Dim t As Variant

Dim nom As String

Set f = ActiveWorkbook.Sheets("Rappel M-1_n")

Set c = Application.Workbooks.Add(xlWBATWorksheet)

Set r = c.Worksheets(1).Range("A1")

nom = ThisWorkbook.Path & "\SaveGPR.xlsx"

f.UsedRange.Copy r

t = f.UsedRange.Value

r.Resize(UBound(t, 1), UBound(t, 2)).Value = t

c.SaveAs nom

c.Close

End Sub

Merci pour votre aide en tous cas :)

Invité · Answer

Une petite présentation ICI serait la bienvenue Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum &#91;A LIRE AVANT DE POSTER&#93; qui vous aidera dans vos demandes et réponses sur ce forum Ainsi que sur les fonctionnalités du forum Concernant votre demande : - la saisie de la demande au kilomètre (sans retour à la ligne) n'est pas conseillée merci d'y faire attention - Le code doit être mis entre balises grâce au bouton &lt;/&gt; Merci de votre participation Cordialement...