Discussion :

[courriervirtuel]

Bonjour à tous,

J'ai écrit un programme en VBA sous Access (2007) pour ouvrir et fermer des document en Excel (2007), je constate que quand je ferme le fichier en le sauvegardant soir avec l'instruction :

Code :

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

1
2
xlBook.Save
xlApp.Quit

ou bien avec l'instruction :

Code :

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

1
2
xlBook.Close True
xlApp.Quit

alors il enregistre bien, se ferme MAIS il reste toujours un processus Excel sur le gestionnaire de tâche.

En revanche, lorsque je ferme le fichier en Excel (2007) sans l'enregistrer avec l'instruction :

Code :

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

1
2
xlBook.Saved = True
xlApp.Quit

alors il n'y a pas de processus "résiduel".

Comment faire pour avoir la même chose au niveau de la fermeture avec enregistrement (pour qu'il n'y ait plus de processus résiduel).

Merci d'avance !

[Daniel.C]

Bonjour,

Qu'est-ce qui se passe si tu mets :

Code :

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

1
2
3
xlBook.Save
xlBook.Saved = True
xlApp.Quit

[courriervirtuel]

J'ai déjà essayé.
Il me mets la même chose que si je n'avais pas mis la deuxième des 3 lignes !

[Didier Gonard]

Bonjour,

vérification de base :

si tu mets un point d'arrêt avant ton code final et que tu regardes le gestionnaire, tu as combien d'instances Excel ouvertes ?

cordialement,

Didier

[courriervirtuel]

Dans les deux cas : fermeture avec enregistrement ou sans enregistrer,
il y a un processus Excel créé
et dans le cas de "avec enregistrement", il n'est jamais "tué" :

Code :

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

1
2
3
4
5
xlBook.Save
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

dans le cas des sans enregistrement, il est "tué" :

Code :

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

1
2
3
4
5
xlBook.Saved = True
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

!!

[Daniel.C]

Peut-être, ajoute un :

Code :

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

xlApp.DoEvents

avant

Code :

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

xlApp.Quit

pour lui laisser le temps d'enregistrer.

[courriervirtuel]

Je n'ai pas la propriété DoEvents sur xlApp !

J'avais essayé une avant

Code :

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

 xlApp.Workbooks.Close

...

Sinon, au départ, j'ai fait ça

Code :

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

1
2
3
4
5
6
7
8
 Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
    'J'initialise mes variables
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("D:\projet.xlsm")
    Set xlSheet = xlBook.Worksheets("root")