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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.