Discussion :

[comme de bien entendu]

Bonjour,
Je script de l'excel depuis Access, mais je n'arrive pas à supprimer le processus Excel que j'ai déclenché sous Access.
Pourtant mon objet Excel est unique et je lance en fin de programme :

Code :

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

1
2
3
 
oAppExcel.Quit
Set oAppExcel = Nothing

Pourtant lorsque mon prog est terminée (dernière procédure executée) je peux tuer le processus Excel visible dans le Task Manager en cliquant sur le bouton de réinitialisation via le débogueur.

Je voudrais éviter de passer par un taskkill (notamment si l'utilisateur a déjà une instance Excel fonctionnant avant l'utilisation de l'Access.)

Est ce que vous avez une idée sur le sujet ?

[User]

Salut,

Tu as bien préfixé tous les objets Excel (worksheet..) avec oAppExcel ?

Peux-tu donner le code complet ?

Merci !

[comme de bien entendu]

Bonjour,

Merci de votre réponse, le code Excel que j'appelle depuis Access se fait dans 5 fonctions, il y a au moins 200 lignes de code, avant de vous l'imposer, je souhaite savoir si je peux d'une façon ou d'une autre utiliser un

Code :

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

1
2
3
with oappExcel.Activeworkbook.Worksheets("Feuille en cours")
     .range("A1")...
end with

ou si je dois précisemenet toujours utiliser une notation complete de mon Objet Excel pour chaque reference à un element de ma feuille.
Merci d'avance de votre retour.

[nico84]

Bonjour,

Oui, il est possible d'adresser la feuille, le classeur...

Mon code se termine par cette séquence et cela ferme bien excel :

Code :

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

1
2
3
4
5
200     objBook.Close SaveChanges:=False
202     objApp.Quit
204     Set objsheet = Nothing
206     Set objBook = Nothing
208     Set objApp = Nothing

[zoopsys]

Bonjour,

sinon pour tuer excel :

Function Fct_KillExcel()

Dim sKillExcel As String

sKillExcel = "TASKKILL /F /IM Excel.exe"
Shell sKillExcel, vbHide

End Function

[comme de bien entendu]

Bonjour,
Merci des réponses, mais je n'arrive pas à retirer le bug.
J'ai pensé que le fait d'utiliser mon objet appExcel comme parametres à travers plusieurs fonctions pourraient provoquer le bug. ( A savoir un Excel
qui reste ouvert)
Ainsi j'ai 9 fonctons de ce types qui se succèdent :

Code :

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

Call Fonctions_Pour_Octave.RefR(oAppExcel, feuille)

Dont le contenu est du type :

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
Sub RefR(appExcel As Excel.Application, feuille As String)
''
    With appExcel
'       MsgBox "Appuyez sur OK pour lancer la mise en forme de la Price Liste et attendez le message de fin "
        .Sheets(feuille).Range("A1").Select
        Selection.AutoFilter field:=1, Criteria1:="=*R", Operator:=xlAnd
        Set tbl = ActiveCell.CurrentRegion
        tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select
        Selection.Delete Shift:=xlUp
        Selection.AutoFilter field:=1
        Selection.AutoFilter
        .Sheets(feuille).Range("A1").Select
    End With
 
End Sub

A la fin de mes fonctions je cherche à supprimer la référence à Excel comme
cela m'a été indiqué via .

Code :

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

appExcel.quit

et

Code :

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

Set appExcel=nothing

Mais il me reste un Excel présent dans le TaskManager, et je n'envisage pas sérieusement de faire un Taskkill.
Merci de vos idées.

[User]

Salut,

ActiveCell n'est pas préfixé.

Après Selection devrait l'être aussi puisque c'est un membre de la classe window, elle-même membre de Excel.

Sers toi de l'explorateur d'objet fourni avec Excel pour savoir quoi mettre devant

A+

[comme de bien entendu]

Merci bien de vos idées. Je mets cela à jour dans mon code.
Cdlt.

[comme de bien entendu]

Merci cela a bien marché, je saurais dorénavant comment traiter Excel depuis Access.