Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Export plusieurs feuilles dans un nouveau classeur

Horusbk

XLDnaute Junior
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.

VB:
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.
VB:
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.
 

Pièces jointes

  • ExportFeuilles.xlsm
    19.3 KB · Affichages: 23

Staple1600

XLDnaute Barbatruc
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 ?
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…