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 : Sélectionner tout - Visualiser dans une fenêtre à part
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