Discussion :

[nietzsche64]

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.

[ClaudeLELOUP]

Bonjour,

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

Et singulièrement sous le commentaire

Code :

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

' Code de fermeture

[PipoWIL]

Bonjour,

Apres ton

Code :

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

GoAppExc.Workbooks.Open(PsPathFil)

j'imagine voir quelque chose du genre de

[PipoWIL]

Sorry, fausse manoeuvre....

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

Code :

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

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

[nietzsche64]

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 :

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