Bonjour,

déjà merci a tout ceux qui veulent bien m'aider a résoudre mon probléme...

Pour fair cour j'ai besoin de supprimer un fichier par la commande Kill, le probléme c'est que lorque le fichier est ouvert j'ai une erreur :

Erreur d'execution '70' Permission refusée

Je voudrai pouvoir gérer cette erreur en affichant un message box, j'utilise alors le On Error GoTo ...

Le probléme c'est que cela ne marche pas du tout, c'est comme si le systéme ne détecte pas l'erreur. Voici le code de ma fonction:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Function EffacerFichier(ByVal Path As String)
On Error GoTo GestErr
    Kill Path
On Error GoTo 0
Exit Function
 
GestErr:
Select Case err.Number    
Case 70
v = MsgBox("Vous devez fermer Excel", vbCritical Or vbOKOnly, "Attention")
End Select
Resume Next
 
End Function
Je suis en VB6 sous Access 2003

Si quelqun a une idée pour résoudre ce probléme...
merci d'avance