Discussion :

[JFDAccess]

Bonjour,

Je reprends la question de CRETGIL

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 :

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

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.

[marot_r]

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 :

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

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+

[JFDAccess]

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 :

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

[marot_r]

Désolé

L'instruction devait être :

Code :

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

wbExcel.close

A+

[JFDAccess]

Merci,

Je ferme la discussion