XL 2016 Export plusieurs feuilles dans un nouveau classeur

[Horusbk]

Bonjour,

J'ai ce code qui me permet d'exporter une feuille de calcul précise dans un nouveau classeur.
Le problème c'est que je souhaite exporter non pas une mais deux feuilles précises de mon classeur vers ce nouveau classeur.

Sub Export_feuil()

Dim LeNom As String, LeRep As String, extension As String
Dim Rep As Integer

extension = ".xlsm"
LeRep = "C:\Users\bapti\Documents\"
LeNom = "Export_TEST" & extension
'
On Error Resume Next
  MkDir Chemin
  On Error GoTo 0
  'On copie les feuilles à garder
  Sheets("Partie2").Copy 'respecter la casse
  Sheets("Partie4").Copy 'respecter la casse
    With ActiveWorkbook
        .SaveAs Filename:=LeRep & LeNom, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        .Close
    End With
'
Rep = MsgBox("L'opération s'est achevée avec succès")
'
End Sub

Lors de l'exécution du code, j'ai une erreur '9' avec le message "L'indice n'appartient pas à la sélection" et l'erreur pointe sur cette ligne correspondant à la seconde feuille que je souhaite exporter.

Sheets("Partie4").Copy 'respecter la casse

Comment puis-je adapter mon programme pour que les deux feuilles soient exportées ?
Merci d'avance pour votre aide

Horusbk.

 

[Staple1600]

Re

J'ai donc satisfait ta curiosité
Mais je ne l'ai pas sans doute assez suscité (ce me semble)
Pourquoi me diras-tu?
Je te laisse me demander où je veux en venir avec cette nouvelle question?


PS: Donc, on est d'accord, tu te compliquais la tâche d'archivage, non ?