[VBA-Excel] Déplacement d'une feuille vers un autre fichier
Bonjour,
Je souhaite créer une feuille dans un classeur, faire des traitements dedans (jusque là ça marche) et enfin la déplacer vers un classeur que je viens de créer :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
' Ajout d'une feuille dans le fichier courant
Set xlSheet = Worksheets.Add
xlSheet.Name = "FEUILLE TOTO"
' Création d'un nouveau fichier Excel
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
NomFichier = "FICHIER TOTO.xls"
xlBook.SaveAs Filename:=chemExport & NomFichier
' Déplacement de la feuille vers le nouveau fichier
Workbooks("TEST.xls").Sheets("FEUILLE TOTO").Move Before:=Workbooks(NomFichier).Sheets(1)
' Fermeture et libération des objets
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing |
Au moment du déplacement j'ai une erreur "L'indice n'appartient pas à la sélection" pourtant mon fichier cible est bien créé.
Quelqu'un a-t-il une idée ?
D'avance merci