Discussion :

[jean-pierre96]

Bonsoir,

Il se trouve que dans mon application j'exporte le contenu d'un recordset dans une feuille excel. Ca marche impecc, le seul hic c'est lors de la fermeture de l'application excel.
Dans mon application après l'exportation je fais un

Code :

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

appExcel.Visible = True

pour afficher l'application, pour permettre ainsi à l'utilisateur de voir le résultat. Lorsqu'on quitte excel, l'application se ferme visiblement bien, mais dans la liste des processus il reste un "EXCEL.EXE". Et ce processus est embêtant car il fait merder toute nouvelle importation sauf si l'on quitte mon application et qu'on la relance.

Comment faire pour quitter proprement Excel une fois qu'on l'a affiché?
Merci pour votre aide.

[SfJ5Rpw8]

sans voir tout ton code cela va être difficile est tu sur de ne pas ouvrir plusieur instance d'excel?

[jean-pierre96]

En fait la structure de mon code est la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Déclaration des variables
Dim appExcel As Excel.Application
Dim wbExcel As Excel.Workbook
Dim wsExcel As Excel.Worksheet
 
Set appExcel = CreateObject("Excel.Application")
appExcel.Workbooks.open("C:/MonDossier/Fichier.xls")
 
Set wbExcel = appExcel.ActiveWorkbook
Set wsExcel = wbExcel.ActiveSheet
 
<ICI JE PROCEDE A L'EXPORTATION DU RECORDSET>
 
appExcel.visible  = true

[SfJ5Rpw8]

à priori ton code est correct.. mais le probléme vient peu être de la :

Code :

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

1
2
 
<ICI JE PROCEDE A L'EXPORTATION DU RECORDSET>

de plus tu pourrai préciser le contexte de ton appli... [VB6]...

[jean-pierre96]

LE code de mon exportation est :

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
 
   row = 6
   col = 2
 
    Données.Recordset.MoveFirst
 
    While Not Données.Recordset.EOF()
       While col < 73
           wsExcel.Cells(row, col).Select
           AppExcel.Selection.Insert Shift:=xlDown
           AppExcel.ActiveCell = Données.Recordset.Fields(col - 2)
           With AppExcel.ActiveCell.Borders
                     .LineStyle = xlContinuous
                     .Weight = xlThin
           End With
           col = col + 1
       Wend
       row = row + 1
       col = 2
     Données.Recordset.MoveNext
     Wend

Ya un problème?

[ThierryAIM]

Si l'objet appExcel n'est pas détruit, il va te rester une instance d'excel ouverte

rajoute :

Code :

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

1
2
appExcel.visible  = true
Set appExcel = Nothing

a moins que tu ne te serves ensuite encore de cet objet, mais dans tous les cas, il faudra le détruire avant de quitter ton prog