Fermer application Excel

Version imprimable

Bonjour,

J'ai créer une procédure dans un module standard qui:
1. ouvre un fichier excel et chaque ligne
2. enregistre chacune des lignes dans une table de ma base de données distantes
3.ferme enfin le fichier excel

Voici le 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 Public Sub PiloterExcelDepuisAccess(fileexcel As String) Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet Dim xlBook As Excel.Workbook Dim nbrelignes As Long Dim nbrecolonnes As Long Dim i As Long Dim j As Long 'J'initialise mes variables Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(fileexcel) 'référence à la requête Set qdf = CurrentDb.QueryDefs("RQTLECTUREFICHIEREXCEL") 'je récupère le nombre de lignes du fichier Excel nbrelignes = ActiveSheet.UsedRange.Rows.Count nbrecolonnes = ActiveSheet.UsedRange.Columns.Count For i = 2 To 3 'nbrelignes InitialiserVariables For j = 1 To nbrecolonnes 'traitement Next 'enregistrement dans la base de donnees qdf.Parameters("param1") = valeur1 qdf.Parameters("param2") = valeur2 qdf.Parameters("param3") = valeur3 qdf.Execute '<== si requête action Next 'libération de la référence Set qdf = Nothing 'Code de fermeture xlBook.Close SaveChanges:=False xlApp.Application.Quit Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing End Sub
Mon soucis, lorsque je ferme le fichier excel, il ne le ferme pas complètement. Et je me retrouve donc avec une instance de Excel (visible dans le GESTIONNAIRE DES TACHES WINDOWS) cachée. Lorsque je veux à nouveau lire les données, j'ai une erreur parce que le fichier est occupé ou pas bien fermé.

Comment faire pour fermer complètement l'application Excel?

24/04/2009, 17h42
scully2501
En cherchant sur Google:

Essai d'inverser:
Code:

1 2 3 4 5 xlApp.Application.Quit 'Code de fermeture xlBook.Close SaveChanges:=False
Et pense à utiliser la balise CODE (image #)
24/04/2009, 17h43
aalex_38

je suis pas du tout certain mais est tu obligé de faire

Code:

xlApp.Application.Quit

Edit : scully2501 répondu en même temps (presque) ;)
24/04/2009, 17h58
flet le kid

En principe, pour fermer, j'utilise xlApp.Quit au lieu de xlApp.Application.Quit.
Mais aucun des deux ne fonctionne.

Bon, j'essaie d'inverser
24/04/2009, 18h42
flet le kid

Finalement, j'ai vu d'ou provient l'erreur mais je n'arrive pas à la résoudre. C'est la portion du code en rouge

J'ai l'erreur suivante:
Erreur d'exécution '91': Variable objet ou variable de bloc with non définie

J'ai essayé de mettre un bloque WITH ACTIVESHEET j'ai toujours la même erreur comme si le Activesheet n'existait pas.
24/04/2009, 19h03
casefayere
Bonsoir,
Je ne sais pas si ça joue mais ce qui m'étonne c'est qu'il reste du code alors que la fermeture a été demandé avant, cette partie :
Code:

1 2 3 Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing
Bon, je dis ça au hasard

Ben, j'ai trouvé des exemples semblables dans la faq d'Access que j'ai enregistré sur le disque local C:

file:///C:/faqaccess/Office.html#Automationn

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim xlApp As Object
    Dim mySheet As Object
 
    Set xlApp = CreateObject("Excel.Application")
    Set mySheet = xlApp.Workbooks.Open("D:\EXCEL\test.xls") ' Définit le fichier EXCEL à ouvrir
 
    ' endroit où mettre le code de pilotage
 
    ' Code de fermeture
    mySheet.Save
    mySheet.Close
    xlApp.Quit
    Set xlApp = Nothing
    Set mySheet = Nothing

et

file:///C:/faqaccess/Excel.html#PilotExcel

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
Private Sub DémoPilotageExcel()
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
    Dim i as long
    Dim vtemp As Variant   
 
    'J'initialise mes variables
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Chemin\Feuille.xls")
 
    'Ajouter une feuille de calcul nommée Toto
    Set xlSheet = xlBook.Worksheets.Add
    xlSheet.Name = "Toto"
 
    'Manipuler une cellule
    xlSheet.Cells(1, 1) = "je suis dans la ligne1 et colonne1"
 
    'Manipuler une plage
    xlSheet.Range("A2:D6").Value = "Zones A2:D6"
    'Remplie la colonne E de la ligne i avec le num de la ligne (i)
    For i = 2 To 6
        xlSheet.Cells(i, 5).Value = i
    Next
 
    'Permet de trier une plage
    xlSheet.Range("A2:E6").Sort xlSheet.Columns("E"), xlDescending
 
    'Trouver une valeur dans une plage
    vtemp = xlSheet.Range("A2:E6").Find("2").Row
 
    'Touver une valeur dans une colonne
    vtemp = xlSheet.Columns("E").Find("2").Row
 
    'Copier une plage vers une destination directement
    'xlBook.Worksheets("Feuil1").Range("A1:E3").Copy Destination:=xlBook.Worksheets _
'("C:\Chemin\FeuilleDestination.xls").Range("A1:E3")
 
    'Copier une plage
    xlSheet.Range("A" & vtemp & ":E" & vtemp).Copy
 
    'Coller les valeurs
    xlSheet.Paste Destination:=xlSheet.Range("A8:E8")
 
    'Supprimer une plage
    'Si l'on supprime une ligne alors cela remonte les lignes
    'xlSheet.Range("A" & vtemp & ":E" & vtemp).Delete
 
    'Supprimer une ligne
    xlSheet.Rows(vtemp).Delete
 
    'insertion d'une ligne
    xlSheet.Range("A" & i & ":H" & i).EntireRow.Insert Shift:=xlShiftDown
 
    'Code de fermeture
    xlBook.Save
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
 
    MsgBox "Fin de la procédure. :)"
End Sub

Je n'ai fait qu'utiliser parce que je ne maîtrise pas vraiment ces aspects.

25/04/2009, 15h09
le petit nicolas

salut,
est-ce que ça ne pourrait pas être la Query qbf qui reste active et qui empêche la fermeture correcte d'Excel ? je dit ça pour avancer, mais je ne connais pas le fonctionnement des Query, c'est juste une hypothèse en l'air.

j'utilise multiquotidiennement un système comme le tien, xlApp = CreateObjet puis xlApp.quit. Ca marche sans aucun souci. Mon code ne fait que rechercher dans le fichier ouvert de cette manière puis stocker les valeurs obtenues dans des variables. Il n'y a pas de Query.

bon courage
26/04/2009, 15h22
le petit nicolas

en cherchant un peu dans les forums j'ai trouvé ça : http://www.developpez.net/forums/d70...cel-proprement
et ça : http://www.developpez.net/forums/d50...cel-persistant

il semble que :
- si tu fais CreateObject il faut déclarer ta variable xlApp comme Objet et non comme Excel.Application
- essaye aussi de faire xlSheet = Nothing et xlBook = Nothing AVANT .quit
- je pense aussi qu'il faut fermer qdf (qdf.close ?)

à +
27/04/2009, 10h01
flet le kid

Bonjour,

merci à tous pour votre aide. NICO, j'ai regardé tes liens très instructifs, notamment la fonction pour tuer un processus.

Mon soucis était dû je pense à une ambiguité dans mon code, je ne sais pas pourquoi, puisque j'ai délaissé:

1.

Code:

nbrelignes =ActiveSheet.UsedRange.Rows.Count

au profit de

Code:

nbrelignes = xlApp.Workbooks(1).Sheets(1).UsedRange.Rows.Count

2.

Code:

Cells(1, j).Value

au profit de

Code:

xlApp.Workbooks(1).Sheets(1).Cells(1, j).Value

Et en faisant cela, j'ai résolu mon soucis.

Merci à tous