Discussion :

[Jordmund]

Salut,

Dans mon code je génère N fichiers Excel provenant de mes requètes Access. J'utilise un fichier type "Template.xls" qui me sert de base pour le format, je copie le résultat de mes requètes dedans, je sauve sous un nom et je passe au suivant, etc...

J'arrive bien à sauver le fichier sous le bon nom, mais je n'arrive pas à fermer le fichier template. Du coup j'ai un processus Excel dans la mémoire à chaque fichier ouvert.

J'ai bien tenté un

Code :

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

1
2
 Windows("Template.xls").Activate
ActiveWorkbook.Close

mais ca ne marche pas.

Avez vous 1 idée ?

Merci.

[SfJ5Rpw8]

on peu voir ton "vrai" code d'ouverture classeur... et sauvegarde..

[Jordmund]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim monExcel As New Excel.Application
 
' Ouverture du fichier
monExcel.Workbooks.Open Filename:=mon_path_template
 
Traitement
 
' Fermeture du fichier
' Sauvegarde du fichier sous le bon nom
ActiveWorkbook.Close savechanges:=True, Filename:=mon_path_projet
 
''' Il reste en mémoire le fichier Template
Windows("Template").Close savechanges:=False, Filename:=mon_path_template => NE MARCHE PAS, meme Workbook("Template.xls").close

Merci.

[vmolines]

Une application Excel peut manipuler N classeurs.

Si ton code fais des "new application", tu vas créer autant de nouveaux processus. Tu peux toujours les fermer avec la méthode "quit" de la classe "application" mais es tu sûr d'avoir besoin de créer un nouveau process à chaque fois ?

Réfléchis à tout ça et tu devrais t'en sortir.

[SfJ5Rpw8]

tiens... essai plutôt, le principe suivant:

ouverture

Code :

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

1
2
3
4
5
6
 
Dim monExcel As New Excel.Application
Dim wk As Workbook
' Ouverture du fichier
monExcel.Visible = True
Set wk = monExcel.Workbooks.Open(FileName:=mon_path_template)

Fermeture

Code :

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

1
2
3
4
 
wk.SaveAs mon_path_projet
wk.Close
monExcel.Quit