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

**Olivier95** · 08/09/2006, 09h22

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

**ouskel'n'or** · 08/09/2006, 09h57

Essaie cette syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Tu dis

**Olivier95** · 08/09/2006, 10h14

J'ai le même message d'erreur.

**ouskel'n'or** · 08/09/2006, 10h20

Envoyé par Olivier95

pourtant mon fichier cible est bien créé.

Il est ouvert ?

**Olivier95** · 08/09/2006, 10h37

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

**ouskel'n'or** · 08/09/2006, 11h05

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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