Discussion :

[benoaa]

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

[Marc-L]

Bonjour,

commencer par vérifier si le fichier est en lecture seule …

Sinon c'est un problème de droits d'accès (cf permission refusée), voir avec le responsable informatique !

[Invité]

test en rendant la main a Windows avant la suppression!

Code :

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

1
2
3
4
5
6
7
8
9
    'Fin
    wkb.Close
    app.Quit
     'libération variables
    Set wks = Nothing
    Set wkb = Nothing
    Set app = Nothing
     DoEvents
    Kill xlPath

[benoaa]

Merci pour vos réponses, c'est tout bon!

@bientôt

B

[Marc-L]

Bien vu Robert !

Certainement dû au mode pilotage, pourtant je n'ai jamais rencontré le cas …

[Invité]

on ne sait pas ce que fait le traitement si il charge la mémoire sans la libérer Windows perd pied!