Discussion :

[sunlover]

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 :

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
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

[Theze]

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 :

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
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

[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.

[Theze]

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 :

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

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é.

[sunlover]

Merci pour cette explication.