Libérer fichier Excel après utilisation

Version imprimable

Bonjour,

Sur le clic d'un bouton, j'ouvre et je lis un fichier Excel (ficxls) qu'a sélectionné un utilisateur.
A la fin du traitement, je ne sais pas comment libérer le fichier Excel (dans le gestionnaire des tâches, EXCEL.EXE reste présent).

Mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        Set loclaexc = OuvreEXCELetCLASSEUR(ficxls)
        If loclaexc Is Nothing Then GoTo Err_ImportExcelSupport_Click
        Set lofeuille = loclaexc.Worksheets("Data")                      ' ouverture de la feuille
        i = 1
        While lofeuille.Cells(i, 1) <> ""                                ' parcours du fichier jusqu'à ce que la première cellule de ligne soit vide
 
               ' Traitement de chaque ligne
               ...
 
               i = i + 1
        Wend
 
        Set loclaexc = Nothing

La procédure OuvreEXCELetCLASSEUR :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function OuvreEXCELetCLASSEUR(PsPathFil$) As Excel.Workbook
    On Error GoTo gereErr
    Set GoAppExc = Excel.Application
    GoAppExc.Visible = False
'    GoAppExc.Visible = True
    GoAppExc.DisplayAlerts = False
    Set OuvreEXCELetCLASSEUR = GoAppExc.Workbooks.Open(PsPathFil)
    Exit Function
gereErr:
    OuvreEXCELetCLASSEUR = Nothing
    MsgBox "OuvreEXCELetCLASSEUR " & Err.Description
End Function

Quelqu'un aurait-il une idée ?

Je vous en remercie par avance.

Bonne journée.

16/09/2014, 11h47
ClaudeLELOUP

Bonjour,

Regarde dans la FAQ, ici : http://access.developpez.com/faq/?page=Excel#PilotExcel

Et singulièrement sous le commentaire

Code:

' Code de fermeture
16/09/2014, 12h14
PipoWIL

Bonjour,

Apres ton

Code:

GoAppExc.Workbooks.Open(PsPathFil)

j'imagine voir quelque chose du genre de
16/09/2014, 12h16
PipoWIL
Sorry, fausse manoeuvre....

Après ton Whille...Wend, tu peux ajouter quelque chose du genre de :
Code:

1 2 3 4 5 'fermer Excel loclaexc.Close Excel.Application.Quit Set loclaexc = Nothing

Merci beaucoup pour votre aide. J'ai pris ce qui m'intéressait (j'ai du adapter légèrement mon code) et ça fonctionne parfaitement :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
 
        ' Initialiser les variables
        Set xlApp = CreateObject("Excel.Application")
        Set xlBook = xlApp.Workbooks.Open(ficxls)
 
        If xlBook Is Nothing Then GoTo Err_ImportExcelSupport_Click
        Set xlSheet = xlBook.Worksheets("Data")                      ' ouverture de la feuille
        i = 1
        While xlSheet.Cells(i, 1) <> ""                                ' parcours du fichier jusqu'à ce que la première cellule de ligne soit vide
                ...
                i = i+1
        Wend
 
        xlBook.Save
        xlApp.Quit
        Set xlSheet = Nothing
        Set xlBook = Nothing
        Set xlApp = Nothing

Bonne journée.