Bonjour,

J'ai écrit un bout de code qui m'ouvre un modèle de fichier Excel. Je copie celui-ci, puis je modifie sa copie.
Mon problème c'est que j'aimerais bien fermer le fichier modèle automatiquement après la copie de celui-ci.
J'arrive à les fermer tout les deux, mais pas un seul.
J'ai regardé la faq, et les tutoriel mais j'ai pas trouvé la solution pour fermer un fichier spécifique.

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
24
25
 
Dim XLApp As Object    ' Declare variable to hold the reference.
Dim xlClasseur As Object 'objet classeur journalier
Dim xlFeuille As Object 'Objet feuille active
 
Private Sub ExportExcel_Click()
 
Set XLApp = CreateObject("Excel.Application")
    'Lancement excel si pas à l'arrêt
    Set xlClasseur = XLApp.Workbooks.Open _
        ("C:\Original_Commande.xls")
 
    'duplication de la feuille originale
    reponse = xlClasseur.Worksheets(1).Copy
 
 
'#### traitement de la feuille ####
 
    'affiche la feuille de commande
    XLApp.Application.Visible = True
End Sub
 
Private Sub FermerExcel_Click()
XLApp.Quit
End Sub
Comment fermer uniquement mon fichier "C:\Original_Commande.xls"

Merci