Discussion :

[Mike619]

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 :

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

[Jean-Philippe André]

bonjour,
je pense que le simple

Code :

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

fichierexcel.Quit

devrait faire l'affaire.....

[Mike619]

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

[Jean-Philippe André]

ok,
et au lieu de voir si l'application est déjà ouverte, pourquoi ne traites-tu pas le code comme ceci :

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

[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

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

[acbdev]

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 :

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

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

1
2
 
KillProcess "Excel.Exe"

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

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


En éspérant t'avoir inspiré pour une idée de résolution.