Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
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...
"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...
"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...
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 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
@+
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
MERCI je vais tester merci
"Fabien" a écrit dans le message de news:
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 @+
MERCI je vais tester
merci
"Fabien" <UrbaniakFabienxxxx@Neuf.fr> a écrit dans le message de news:
OLZKSA9UJHA.2644@TK2MSFTNGP03.phx.gbl...
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
@+
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 @+