Bonjour à tous,

Je traite un fichier dans une méthode puis je souhaiterais le supprimer. J'utilise la méthode Kill qui m'indique "permission refusée lors du test" Voici le une partie du 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Traiter()
 Dim xlPath As String 'xlPath : chemin du fichier Excel
 Dim wsName As String 'wsName : nom de la feuille Excel qui contient les données à importer
 xlPath = "\Mon chemin...xlsx"
 wsName = "Feuil1" 
 
'déclaration des variables
    Dim app As Excel.Application
    Dim wkb As Excel.Workbook
    Dim wks As Excel.Worksheet
 
 'initialisation des variables
    Set app = New Excel.Application
    Set wkb = app.Workbooks.Open(xlPath)
    Set wks = wkb.Worksheets(wsName)
 
 
'TRAITEMENT AUCUN PROBLEME
 
    'Fin
    wkb.Close
    app.Quit
 
    'libération variables
    Set wks = Nothing
    Set wkb = Nothing
    Set app = Nothing
 
    Kill xlPath
 
End Sub
J'ai une erreur sur le Kill xlPath de la fin. sauriez vous comment palier à ce problème.

Merci à tous pour vos suggestions.

B