Discussion :

[CharboTeam]

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

[J.Michel]

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 :

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

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

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

[bernardmichel]

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 :

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

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

[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

[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