Fermeture d'excel par VBA ACCESS

Version imprimable

Bonjour tout le monde,

Je vien chercher de l'aide car malgrés mes effor je ne trouve pas la solution à mon probléme.

J'ai un bou de code qui ouvre une aplication Excel et ouvre et ferme succesivement des workbooks. à la fin de cette boucle (infernale j'aimerai qu'il finisse par fermer Excel (de sorte à ce qu'il n'apparaisse pas dans les processus du gestionnaire des taches).

Voila mon code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Public Function IMPORT_GLOBAL()
 
   '//////// IMPORT DU FICHIER ET SELECTION \\\\\\\\\
 
 
   'Ce code permet de récupérer les données dans chaque fichier excel, cela peut prendre un peu de temps car il doit mettre à jour 12 TCD par fichier
   'Pour séléctionner les fichier fournisseur il se base sur la liste des fournisseur à noter
 
Dim lgClients As Long, lgIdx As Long
Dim strSQL As String
Dim LibFournisseur As String
Dim CodeFournisseur As String
Dim Onglet As String
Dim myPath As String
 
 
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
 
lgClients = DCount("*", "R_Select_Fourn")
If lgClients = 0 Then Exit Function
    Set xlApp = New Excel.Application
    xlApp.Visible = False
 
For lgIdx = 1 To lgClients
    DoCmd.SetWarnings False
    ' Vide SelectionFournisseur
    DoCmd.RunSQL "DELETE FROM [Selection_Fourn]"
    ' Met Nième LibFournisseur dans SelectionFournisseur
    strSQL = "INSERT INTO Selection_Fourn([Nom Fournisseur]) " & _
             "SELECT Max([Nom Fournisseur])" & _
             "FROM (SELECT TOP " & lgIdx & " [Nom Fournisseur] FROM R_Select_Fourn)"
    DoCmd.RunSQL strSQL
    ' Attribution du code fournisseur inséré dans la table Selection_Fourn à la variable LibFournisseur
    LibFournisseur = CurrentDb.OpenRecordset("Selection_Fourn").Fields(0).Value
    CodeFournisseur = CurrentDb.OpenRecordset("Code_Fournisseur_Séléctionné").Fields(0).Value
    'MsgBox (LibFournisseur)
    DoCmd.SetWarnings True
 
    'Adress du fichier pour l'import
    myPath = "U:\Notations Fournisseurs et Plans d'actions\Logistique\EVALUATION AC 2010\Evaluation Fournisseur  -" & LibFournisseur & "- .xls"
 
 
    Set xlBook = xlApp.Workbooks.Open(myPath)
    Set xlsheet = xlBook.Worksheets("TCD")
 
    xlsheet.PivotTables("TCDjanvier").PivotCache.Refresh
    xlsheet.PivotTables("TCDfévrier").PivotCache.Refresh
    xlsheet.PivotTables("TCDmars").PivotCache.Refresh
    xlsheet.PivotTables("TCDavril").PivotCache.Refresh
    xlsheet.PivotTables("TCDmai").PivotCache.Refresh
    xlsheet.PivotTables("TCDjuin").PivotCache.Refresh
    xlsheet.PivotTables("TCDjuillet").PivotCache.Refresh
    xlsheet.PivotTables("TCDaoût").PivotCache.Refresh
    xlsheet.PivotTables("TCDseptembre").PivotCache.Refresh
    xlsheet.PivotTables("TCDoctobre").PivotCache.Refresh
    xlsheet.PivotTables("TCDnovembre").PivotCache.Refresh
    xlsheet.PivotTables("TCDdécembre").PivotCache.Refresh
 
DoCmd.TransferSpreadsheet acImport, 8, "IMPORT_GLOBAL", myPath, True, "TCD!A86:G122"
 
xlBook.Save
xlBook.Close
Set xlsheet = Nothing
Set xlBook = Nothing
 
Next
 
 
Exit Function
Set xlsheet = Nothing
Set xlBook = Nothing
DoCmd.OpenQuery "SUP_IMPORT_GLOBAL_0CMD" 'Supprime les lignes de données ou le champ nb commande est à zero
Excel.Application.Quit
Set xlApp = Nothing
 
End Function

Merci à tous pour votre aide future

Bien à vous

Alex

03/03/2010, 18h17
helas
Bonjour,
tout simplement
Code:

1 2 xlApp.Quit
03/03/2010, 19h19
Psychopathe

Attention à utiliser xlApp.Quit avant

Code:

Exit Function

Sinon il l'application Excel ne sera pas quittée!!!!!
05/03/2010, 09h26
Deustalos

Déja essayé mais ne marche pas :(
05/03/2010, 09h32
Deustalos

Le probléme est que ma boucle qd elle se termine renvoi vers le exit function, donc comment inclure le xlApp dans mon code en l'executant une fois la boucle terminé mais sans le mettre dans les exit function (car de se que j'ai compri si je le met apré le exit function cela ne s'execute pas...)

Merci
06/03/2010, 00h51
Psychopathe

Il suffit de faire le xlApp.Quit juste avant le Exit Function, c'est à dire entre le next de la boucle for et Exit Function
06/03/2010, 01h34
Deustalos

bha la boucle renvoi direct al exit function c ca le pb
08/03/2010, 11h08
Deustalos

Re bonjour,

Si ca peux aider, qd je désactive la partie de mon code correspondant à l'actualisation des TCD et au transfert de donnée; excel se quite correctement et libére l'espace utilisé avec xlapp.quit et xlapp = nothing.

par contre qd je l'active l'éspace n'est pas libéré.

Merci de votre aide

Pourquoi vouloir absolument mettre un Exit Function? Essaie ceci:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Public Function IMPORT_GLOBAL()
 
   '//////// IMPORT DU FICHIER ET SELECTION \\\\\\\\\
 
 
   'Ce code permet de récupérer les données dans chaque fichier excel, cela peut prendre un peu de temps car il doit mettre à jour 12 TCD par fichier
   'Pour séléctionner les fichier fournisseur il se base sur la liste des fournisseur à noter
 
Dim lgClients As Long, lgIdx As Long
Dim strSQL As String
Dim LibFournisseur As String
Dim CodeFournisseur As String
Dim Onglet As String
Dim myPath As String
 
 
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
 
lgClients = DCount("*", "R_Select_Fourn")
If lgClients <> 0 Then 
    Set xlApp = New Excel.Application
    xlApp.Visible = False
 
For lgIdx = 1 To lgClients
    DoCmd.SetWarnings False
    ' Vide SelectionFournisseur
    DoCmd.RunSQL "DELETE FROM [Selection_Fourn]"
    ' Met Nième LibFournisseur dans SelectionFournisseur
    strSQL = "INSERT INTO Selection_Fourn([Nom Fournisseur]) " & _
             "SELECT Max([Nom Fournisseur])" & _
             "FROM (SELECT TOP " & lgIdx & " [Nom Fournisseur] FROM R_Select_Fourn)"
    DoCmd.RunSQL strSQL
    ' Attribution du code fournisseur inséré dans la table Selection_Fourn à la variable LibFournisseur
    LibFournisseur = CurrentDb.OpenRecordset("Selection_Fourn").Fields(0).Value
    CodeFournisseur = CurrentDb.OpenRecordset("Code_Fournisseur_Séléctionné").Fields(0).Value
    'MsgBox (LibFournisseur)
    DoCmd.SetWarnings True
 
    'Adress du fichier pour l'import
    myPath = "U:\Notations Fournisseurs et Plans d'actions\Logistique\EVALUATION AC 2010\Evaluation Fournisseur  -" & LibFournisseur & "- .xls"
 
 
    Set xlBook = xlApp.Workbooks.Open(myPath)
    Set xlsheet = xlBook.Worksheets("TCD")
 
    xlsheet.PivotTables("TCDjanvier").PivotCache.Refresh
    xlsheet.PivotTables("TCDfévrier").PivotCache.Refresh
    xlsheet.PivotTables("TCDmars").PivotCache.Refresh
    xlsheet.PivotTables("TCDavril").PivotCache.Refresh
    xlsheet.PivotTables("TCDmai").PivotCache.Refresh
    xlsheet.PivotTables("TCDjuin").PivotCache.Refresh
    xlsheet.PivotTables("TCDjuillet").PivotCache.Refresh
    xlsheet.PivotTables("TCDaoût").PivotCache.Refresh
    xlsheet.PivotTables("TCDseptembre").PivotCache.Refresh
    xlsheet.PivotTables("TCDoctobre").PivotCache.Refresh
    xlsheet.PivotTables("TCDnovembre").PivotCache.Refresh
    xlsheet.PivotTables("TCDdécembre").PivotCache.Refresh
 
DoCmd.TransferSpreadsheet acImport, 8, "IMPORT_GLOBAL", myPath, True, "TCD!A86:G122"
 
xlBook.Save
xlBook.Close False
Set xlsheet = Nothing
Set xlBook = Nothing
 
Next
 
xlApp.Quit
Set xlApp = Nothing
 
DoCmd.OpenQuery "SUP_IMPORT_GLOBAL_0CMD" 'Supprime les lignes de données ou le champ nb commande est à zero
 
End If
 
End Function

11/03/2010, 13h58
christophe31

Salut

Essaye de mettre cette ligne pour kill l'application excel que tu veux.

Code:

ShellExecute NomdunFormulaire.hwnd, "close", "TonCheminAccèsFichierExcel C:\Documents and Settings\toto.xls", "", vbNullString, 1
23/03/2010, 15h18
kisbool

Salut,

encore plus simple,
tu remplaces ta ligne de commande :
Set xlBook = xlApp.Workbooks.Open(myPath)
par
Set xlBook = xlApp.Workbooks.Open(myPath,Readonly:=True)

et plus besoin de fermer ton processus EXCEL.