Probleme On Error GoTo

Version imprimable

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:

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

Pourquoi utiliser une fonction, une procédure est suffisante dans ce cas.

Essaye comme ça, si ce n'est pas l'erreur 70 tu verras quelle erreur tu recois:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub EffacerFichier(ByVal Path As String)
   On Error GoTo GestErr
   Kill Path
 
GestErr:
   If Err.Number > 0 then
     Select Case err.Number 
        Case 70
            v = MsgBox("Vous devez fermer Excel", vbCritical Or vbOKOnly, "Attention")
        Else
           Msgbox Err.Number & " / " & Err.Description, VbCritical
     End Select
   End If
End Sub

03/07/2008, 10h31
CharboTeam

Merci de m'avoir répondu aussi vite Mais...

Le probléme est toujour la, lorsque le fichier est ouvert j'ai toujour l'erreur 70 et la msgbox ne s'affiche pas.

Bonjour

Moi, j'ai placé ta fonction dans un module, d'où "Public Function".

A mon humble avis, le test de l'erreur 70 est inutile car, soit Excel est fermé et ton fichier est effacé, soit ton fichier est ouvert et une erreur apparaît...

Alors, ce que je te propose (cela fonctionne chez-moi) c'est :
Code:

1 2 3 4 5 6 7 8 9 Public Function EffacerFichier(ByVal Path As String) On Error GoTo GestErr Kill Path Exit Function GestErr: MsgBox " Vous devez fermer votre fichier avant de pouvoir le supprimer", vbCritical, "Attention" End Function

03/07/2008, 10h53
J.Michel

Vérifie dans les options de VBA sous l'onglet général si l'option "arrêt sur les erreurs non gérées" est bien cochée
03/07/2008, 11h01
CharboTeam

Merci pour vos réponses, en cochant l'arret sur les erreur non gérer au lieu de arret sur toute les erreur, cela marche... il falait y penser.

Merci encor mon probléme est resolu