Discussion :

[Renard-fou]

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

[nico84]

Bonsoir,
Voici une séquence qui ouvre excel puis un fichier et ferme le fichier puis excel :

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
Dim objBook As Object, objApp As Object, objSheet As Object
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Add
Set objSheet = objBook.Worksheets(1)
objApp.Visible = False
 
With objSheet
   ...............
End With
 
objSheet.PrintOut Copies:=1, Collate:=True
objBook.Close SaveChanges:=False
objApp.Quit
 
Set objSheet = Nothing
Set objBook = Nothing
Set objApp = Nothing

[Renard-fou]

Bonjour,

Bonsoir,
Voici une séquence qui ouvre excel puis un fichier et ferme le fichier puis excel :

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
Dim objBook As Object, objApp As Object, objSheet As Object
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Add
Set objSheet = objBook.Worksheets(1)
objApp.Visible = False
 
With objSheet
   ...............
End With
 
objSheet.PrintOut Copies:=1, Collate:=True
objBook.Close SaveChanges:=False
objApp.Quit
 
Set objSheet = Nothing
Set objBook = Nothing
Set objApp = Nothing

Merci pour votre bout de code.
J'ai réussi à faire ce que je voulais grâce à votre code.