Excel continue de s'exécuter en background après la fin de la macro qui le contrôle.

Version imprimable

Bonjour,

Je suis débutant en VBA.
En cherchant, j'ai vu qu'il fallait accéder à tout objet en le déclarant en tant que variable d'abord et ce même pour les collections. Il faut les libérer ensuite et c'est ce que je pense faire, mais excel ne se termine pas.
Cela est ennuyeux et le tuer en tant que processus est dangereux car s'il y a une autre instance lancée...

Merci de m'aider à trouver une solution.

Code:

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
26
27
 
    Dim oExcel As Object
    Dim oWorkbooks As Object
    Dim oWorkbook As Object
    Dim oSheet As Object
    Set oExcel = New Excel.Application
    oExcel.Visible = True
    Set oWorkbooks = oExcel.Workbooks
    Set oWorkbook = oWorkbooks.Open("C:\Test.xlsm", ReadOnly:=True)
    Dim oSheets As Object
    Set oSheets = oWorkbook.Sheets
    Set oSheet = oSheets(1)
    Dim myRange As Object
    Set myRange = oSheet.Range("A:A")
    Dim oWorksheetFunction As Object
    Set oWorksheetFunction = Excel.WorksheetFunction
    MsgBox oWorksheetFunction.CountIf(myRange, "*")
    oWorkbook.Close
CleanUp:
    Set oWorksheetFunction = Nothing
    Set myRange = Nothing
    Set oSheet = Nothing
    Set oSheets = Nothing
    Set oWorkbook = Nothing
    Set oWorkbooks = Nothing
    oExcel.Quit
    Set oExcel = Nothing

Bonjour,

Je viens de tester ton code après simplification, et pas de problème, Excel se ferme bien. Il y a des objets inutiles dans ton code que j'ai supprimés (en relation précoce, cocher la référence) :

Code:

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
26
 
Sub AvecExcel()
 
    Dim oExcel As New Excel.Application
    Dim oWorkbook As Excel.Workbook
    Dim oSheet As Excel.Worksheet
    Dim myRange As Excel.Range
 
    Set oWorkbook = oExcel.Workbooks.Open("C:\Test.xlsm", ReadOnly:=True)
    oExcel.Visible = True
 
    Set oSheet = oWorkbook.Worksheets(1)
    Set myRange = oSheet.Range("A:A")
 
    MsgBox oExcel.WorksheetFunction.CountIf(myRange, "*")
 
    oWorkbook.Close
 
CleanUp:
    Set myRange = Nothing
    Set oSheet = Nothing
    Set oWorkbook = Nothing
    oExcel.Quit
    Set oExcel = Nothing
 
End Sub

01/04/2011, 11h23
sunlover

Merci ça fonctionne. Pour les objets inutiles, je cherchais pourquoi le process excel continuait à tourner en background et je suis tombé sur une réponse qui disait que tout devait être déclaré et libéré à la fin donc j'ai voulu tester.

Probablement que lors de mon test j'ai oublié de mettre un Set object = Nothing sur un objet utilisé par ma macro.

Autre-chose, que voulez-vous dire par relation précoce ?

La référence était déjà cochée sinon j'aurais eu 'user-defined type not declared' à la compilation.

Merci encore.

Bonsoir,

Une relation précoce est justement de cocher la référence à l'objet et une relation tardive est d'y faire référence pendant le code :
Code:

1 2 3 4 5 6 7 'relation précoce (la référence à l'objet Excel doit être cochée) Dim oExcel As New Excel.Application 'relation tardive (la référence n'est cochée) Dim oExcel As Object Set oExcel = CreateObject("Excel.Application")
Hervé.

04/04/2011, 15h05
sunlover

Merci pour cette explication.