Ferméture de Excel à partir de Access

Bonjour,

Je reprends la question de CRETGIL

Citation:

---

Vba excel workbook worksheet fermeture excel [Résolu]

---

du 24/03/2015, 10h30 .

J'ai le même problème et, les réponses données ne corrigent pas le problème chez moi

Windows 8.1, Office 2010. Je suis partit de l'exemple de ="http://drq.developpez.com/vb/tutoriels/Excel/" de Sébastien Curutchet

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'Déclaration des variables Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel   'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open("Ma Feuille.xls") 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(1)

---

Le fait de fermer la feuille, quitter Excel laisse Excel actif dans le processus arrière plan. Ce qui empêche le reste du programme (rouvrir un autre fichier Excel de se dérouler.

On peut continuer en supprimant le processus à la main!

Merci, de me donner une piste.

Bonjour.

Oui la fermeture de Excel à partir d'Access et parfois problématique.

Voici comment je procède et à date je n'ai pas eu de problème.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim appExcel As Object 'Excel.Application 'Application Excel Dim wbExcel As Object 'Excel.Workbook 'Classeur Excel Dim wsExcel As Object Excel.Worksheet 'Feuille Excel   appexcel.visible=true 'Apparement quand Excel est caché cela marche moins bien. Peut malheureusement avoir un effet "stroboscope" assez fatiguant pour l'utilisateur.   'Ici le code qui travaille sur ces objets   'Ici le code pour la fin set wsExcel=nothing wbExcel.quit:set wbExcel=nothing set appExcel=nothing

---

Le set ... = nothing force le compilateur à "libérer" l'objet.
En théorie, il le fait de lui-même mais cela garanti qu'il va le faire MAINTENANT pas quand cela lui paraîtra le bon moment.

Le fait d'utiliser des objets évite d'avoir une dépendance sur les librairies de Excel. C'est très important si ta BD est utilisée dans divers Offices. La librairie référencée est celle de l'office le plus récent donc si tu créés ta BD avec Office 2007, que tu l'ouvres avec Office 2010 tu te retrouves avec un référence à Excel 2010 et quand tu l'ouvres de nouveau avec Access 2007 tu as une erreur de référence ... pas cool.

Malheureusement avec des Objects tu pers l'intellissense des objets Excel.

Le fait de rendre Excel visible permet aussi de voir que Excel a planté.

A+

Bonjour et merci,

Cela règle en partie le problème, mais effectivement, il m'avait semblé voir une des instance de Excel dans disparaître dans le processus arrière plan de temps en temps (de l'ordre de 1 à 2 heures après)

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

Sub testOuvreFermeXL() '*******************   Dim appExcel As Object 'Excel.Application 'Application Excel Dim wbExcel As Object 'Excel.Workbook 'Classeur Excel Dim wsExcel As Object 'Excel.Worksheet 'Feuille Excel   Set appExcel = CreateObject("Excel.Application") appExcel.Visible = True 'Apparement quand Excel est caché cela marche moins bien. Peut malheureusement avoir un effet "stroboscope" assez fatiguant pour l'utilisateur.   'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open("C:\Users\JFD\Downloads\LotsExcel.xls") Set wsExcel = wbExcel.ActiveSheet   MsgBox wsExcel.Cells(1, 1)   'Ici le code pour la fin Set wsExcel = Nothing 'wbExcel.Quit appExcel.Quit Set wbExcel = Nothing Set appExcel = Nothing     End Sub

---

Maintenant avec le petit bout de code test ci dessus (j'ai ajouté " ' " après wsExcel As Object .

Le comportement est le suivant :

• wbExcel.Quit provoque l'erreur 438 (procédure ou méthode non gérée par cet objet)
• J'ai ajouté appExcel.Quit
• la feuille Excel se ferme en fin de sub
• Un classeur Excel vide reste actif, mais ne gêne plus
• il n'y plus d'instance Excel dans le processus arrière plan

Bref c'est complik l'informatik!!!

Mais déjà cela me permet de travailler.

Désolé

L'instruction devait être :

Code:

---

wbExcel.close

---

A+

Merci,

Je ferme la discussion