Processus Excel persistant

Version imprimable

Bonjour à tous,

Après maintes recherches sur le web et ce forum, j'ai vu pas mal de sujets qui traitent de mon problème, mais les réponses proposées ne le résolvent pas :?

Je fais un import d'un fichier Excel sur Access (fichier Excel décomposé en 3 onglets dont seul le 1er m'intéresse) en créant une nouvelle table. A noter que le transfert ne se fait que pour un seul enregistrement.

Le transfert fonctionne à merveille, mais lorsque je veux le recommencer, je me rend compte qu'un processus Excel reste présent malgré la fermeture de mon appli et m'empêche de refaire le transfert...

Je vous mets mon code, j'espère que vous pourrez me dire ce qui cloche...
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 Private Sub Commande461_Click() Dim fichierexcel As Excel.Application Dim classeur As Excel.Workbook Dim feuille As Excel.Worksheet Dim qd As QueryDef 'Vérification si Excel est déjà ouvert Dim excel_ouvert As Boolean Set fichierexcel = Nothing excel_ouvert = False On Error Resume Next Set fichierexcel = GetObject("excel.application") On Error GoTo 0 If fichierexcel Is Nothing Then Set fichierexcel = CreateObject("Excel.Application") excel_ouvert = True End If 'Création table temporaire pour stocker les données reprises dans excel [...] 'Ouverture du fichier Excel Set classeur = fichierexcel.Workbooks.Open("D:\...\fichier.xls") fichierexcel.Visible = True 'Exécution d'une macro excel qui met en forme mes données fichierexcel.Run ("Export_new") 'Transfert des données DoCmd.TransferSpreadsheet acImport, , "temp", ("D:\...\fichier.xls"), True, "Export_access_new!A1:BL2" classeur.Close (False) Excel.Application.Quit Set feuille = Nothing Set classeur = Nothing Set fichierexcel = Nothing End Sub
J'ai même essayé d'ajouter un code au début pour voir si l'appli Excel est déjà ouverte, mais ça n'a pas l'air de fonctionner...

Merci d'avance pour l'aide que vous pourrez m'apporter ;)

11/03/2008, 11h02
Jean-Philippe André

bonjour,
je pense que le simple

Code:

fichierexcel.Quit

devrait faire l'affaire..... :oops:
11/03/2008, 11h13
Mike619

Merci de ta réponse, mais malheureusement ce n'est pas aussi simple, j'ai déjà essayé...

ok,
et au lieu de voir si l'application est déjà ouverte, pourquoi ne traites-tu pas le code comme 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
Private Sub Commande461_Click()
 
Dim fichierexcel As New Excel.Application
Dim classeur As Excel.Workbook
Dim feuille As Excel.Worksheet
Dim qd As QueryDef
 
'Vérification si Excel est déjà ouvert
 
 
 
'Création table temporaire pour stocker les données reprises dans excel
[...]
 
 
'Ouverture du fichier Excel
Set classeur = fichierexcel.Workbooks.Open("D:\...\fichier.xls")
fichierexcel.Visible = True
 
'Exécution d'une macro excel qui met en forme mes données
fichierexcel.Run ("Export_new")
 
'Transfert des données
DoCmd.TransferSpreadsheet acImport, , "temp", ("D:\...\fichier.xls"), True, "Export_access_new!A1:BL2"
 
classeur.Close (False)
fichierexcel.Quit
Set feuille = Nothing
Set classeur = Nothing
Set fichierexcel = Nothing
 
 
End Sub

11/03/2008, 11h30
tribaleur

Bonjour.
Cela vien peut-être de la macro qui est excécuté sur le fichier Excel.

Ou alors le problème ne vient pas du fait que le fichier Excel est ouvert mais plutôt du fait qu'il existe un liaison entre la base de données et le fichier.

Peut-être que la methode "TransferSpreadsheet" garde une liaison ouverte ou quelque chose du genre.

Enfin je dit ça mais je sais pas...je maitrise pas trop ce domaine.
:oops:

En éspérant t'avoir inspiré pour une idée de résolution. ;)
11/03/2008, 11h36
Mike619

Ca ne marche pas non plus jpcheck :(

Sinon, ça provient bien de la méthode, le problème a l'air d'être récurrent sur le net. Mais je n'ai pas trouvé de solutions :bug:

Le fichier Excel se ferme bien, mais le processus est toujours présent. Et quand je relance la macro, il me dit que le fichier est introuvable :?

j'ai eu le même souci

et j'ai réussi à le résoudre en testant en vba si le processus est toujours en mémoire

Fonction ajoutée dans un module

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Public Function KillProcess(ByVal ProcessName As String) As Boolean
On Error GoTo err
    Dim svc As Object
    Dim sQuery As String
    Dim oproc
    Set svc = GetObject("winmgmts:root\cimv2")
    sQuery = "select * from win32_process where name='" & ProcessName & "'"
    For Each oproc In svc.execquery(sQuery)
        oproc.Terminate
    Next
    Set svc = Nothing
err:
Set svc = Nothing
'MsgBox err.Description & " " & err.Number & " " & err.Source
End Function

appel de la fonction pour tuer tous les processus Excel :

Code:

1
2
 
KillProcess "Excel.Exe"

Cela m'a résolu beaucoup de petits soucis
Anne

Bonsoir,

essaie en mettant la méthode TransfertSpreadSheet après avoir fermé les objets Excel.
Code:

1 2 3 4 5 6 7 8 Set feuille = Nothing classeur.Close (False) Set classeur = Nothing If excel_ouvert Then fichierexcel.Quit Set fichierexcel = Nothing 'Transfert des données DoCmd.TransferSpreadsheet acImport, , "temp", ("D:\...\fichier.xls"), True, "Export_access_new!A1:BL2"
Ainsi TransfertSpreadSheet ne peut plus interférer avec l'objet fichierexcel.

A+

Citation:
Envoyé par LedZeppII
Bonsoir,

essaie en mettant la méthode TransfertSpreadSheet après avoir fermé les objets Excel.
Code:

1 2 3 4 5 6 7 8 Set feuille = Nothing classeur.Close (False) Set classeur = Nothing If excel_ouvert Then fichierexcel.Quit Set fichierexcel = Nothing 'Transfert des données DoCmd.TransferSpreadsheet acImport, , "temp", ("D:\...\fichier.xls"), True, "Export_access_new!A1:BL2"
Ainsi TransfertSpreadSheet ne peut plus interférer avec l'objet fichierexcel.

A+
Merci, j'avais fini par trouver ça hier soir et ça marche :D

Anne, je garde ton code sous le coude, merci beaucoup ;)