gerer message erreur

Le
karamel
Bonjour
dans une procédure à un moment je supprime un fichier

kill fichier_machin.txt

or dans ceratin cas le fichier est ouvert par une application, ce qui génere
bien sur une erreur et l'arrêt de la procédure

comment - soit tester que le fichier n'est pas "actif" pour ouvrir un
msgbox, indiquant de fermer l'application qui est dessus

ou - à la suite de l'erreur lors du kill, ouvrir une msgbox et ensuite
répeter le kill

merci de votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #18015351
Salut,

"karamel"
| dans une procédure à un moment je supprime un fichier
|
| kill fichier_machin.txt
|
| or dans ceratin cas le fichier est ouvert par une application, ce qui génere
| bien sur une erreur et l'arrêt de la procédure
|
| comment - soit tester que le fichier n'est pas "actif" pour ouvrir un
| msgbox, indiquant de fermer l'application qui est dessus
|
| ou - à la suite de l'erreur lors du kill, ouvrir une msgbox et ensuite
| répeter le kill


Une simple gestion d'erreur ?

<<<
On error Resume Next

Kill fichier_machin.txt

if error<>0 then
msgbox "bla bla..."
end if









Ceci dit, il te faut également vérifier la présence du fichier, avant
de vouloir le supprimer, sinon tu obtiens également une erreur...

If Dir("fichier_machin.txt") <> "" then

' tu kill

else

msgbox "absent..."

end if

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Fabien
Le #18015341
karamel a écrit :
Bonjour
dans une procédure à un moment je supprime un fichier

kill fichier_machin.txt

or dans ceratin cas le fichier est ouvert par une application, ce qui génere
bien sur une erreur et l'arrêt de la procédure

comment - soit tester que le fichier n'est pas "actif" pour ouvrir un
msgbox, indiquant de fermer l'application qui est dessus

ou - à la suite de l'erreur lors du kill, ouvrir une msgbox et ensuite
répeter le kill

merci de votre aide




Salut,
tu peux intercepter l'erreur en mettant un
on error goto Traite_erreur
...
ton code
...
Exit Sub
:Traite_erreur
If err.number=lenumerodel'erreurqutuchercheaintercepter then
If msgbox ("y a un bleme !!! on attend ? ",VByesNo)=vbYes then
resume 'retourne sur le kill
else
resume next ' passe a la suite
end if
else
si c'est autrechose alors ....
end if
end sub
@+
karamel
Le #18015801
MERCI je vais tester
merci

"Fabien"
karamel a écrit :
Bonjour
dans une procédure à un moment je supprime un fichier

kill fichier_machin.txt

or dans ceratin cas le fichier est ouvert par une application, ce qui
génere bien sur une erreur et l'arrêt de la procédure

comment - soit tester que le fichier n'est pas "actif" pour ouvrir un
msgbox, indiquant de fermer l'application qui est dessus

ou - à la suite de l'erreur lors du kill, ouvrir une msgbox et ensuite
répeter le kill

merci de votre aide


Salut,
tu peux intercepter l'erreur en mettant un
on error goto Traite_erreur
...
ton code
...
Exit Sub
:Traite_erreur
If err.number=lenumerodel'erreurqutuchercheaintercepter then
If msgbox ("y a un bleme !!! on attend ? ",VByesNo)=vbYes then
resume 'retourne sur le kill
else
resume next ' passe a la suite
end if
else
si c'est autrechose alors ....
end if
end sub
@+



Publicité
Poster une réponse
Anonyme