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.
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.
Comment puis-je adapter mon programme pour que les deux feuilles soient exportées ?
Merci d'avance pour votre aide
Horusbk.
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 SubLors 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 casseComment puis-je adapter mon programme pour que les deux feuilles soient exportées ?
Merci d'avance pour votre aide
Horusbk.