[VBA-Excel] Déplacement d'une feuille vers un autre fichier

Version imprimable

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

Essaie cette syntaxe

Code:

1
2
    Workbooks("Fichier1.xls").Worksheets("Feuil1").Move _
    after:=Workbooks("Fichier2.xls").Sheets(1)

Tu dis

08/09/2006, 11h14
Olivier95

J'ai le même message d'erreur.
08/09/2006, 11h20
ouskel'n'or

Citation:

Envoyé par Olivier95

pourtant mon fichier cible est bien créé.

Il est ouvert ?
08/09/2006, 11h37
Olivier95

Oui j'ai vérifié en écrivant dans une cellule.

Ajoute un DoEvents entre la sauvegarde et le déplacement de la feuille
Code:

1 2 3 4 xlBook.SaveAs Filename:=chemExport & NomFichier DoEvents ' Déplacement de la feuille vers le nouveau fichier Workbooks("TEST.xls").Sheets("FEUILLE TOTO").Move Before:=Workbooks(NomFichier).Sheets(1)
Hier, on a vu passer la même question... alors la même réponse : Si ton fichier n'est pas encore totalement enregistré, la procédure se poursuit tout de même alors que la feuille(1) n'est pas encore accessible. Donc -> -> -> DoEvents
Tu dis

08/09/2006, 12h17
Olivier95

J'ai trouvé !!!
J'ai remplacé la ligne

Code:

Set xlBook = xlApp.Workbooks.Add

par

Code:

Set xlBook = Workbooks.Add

et ça marche.

Le fichier cible était créé dans une autre session Excel que celle du fichier source, et était donc "invisible"

Merci pour tout