OVH Cloud OVH Cloud

Intercepter une erreur

6 réponses
Avatar
Bonjour,

Voici mon probl=E8me :
Je fais des copies de fichiers avec du code vba (fonction=20
filecopy) mais lorsque la destination n est pas disponible=20
(ordinateur eteind), j ai un message d erreur me disant=20
que la destination n est pas accessible. Cette erreur me=20
plante l application.
J aimerais pouvoir r=E9cup=E9rer cette erreur pour savoir si=20
la copie s est bien deroul=E9e ou non mais continuer l=20
execution de la procedure que cette derniere ait reusie ou=20
non.

Merci

6 réponses

Avatar
3stone
Salut,

a écrit
Voici mon problème :
Je fais des copies de fichiers avec du code vba (fonction
filecopy) mais lorsque la destination n est pas disponible
(ordinateur eteind), j ai un message d erreur me disant
que la destination n est pas accessible. Cette erreur me
plante l application.
J aimerais pouvoir récupérer cette erreur pour savoir si
la copie s est bien deroulée ou non mais continuer l
execution de la procedure que cette derniere ait reusie ou
non.



Autrement dit, il te faut inclure une simple gestion d'erreur
lorsque tu tente d'accéder/écrire ton fichier...


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Avatar
Bah oui ....

Mais la question est : comment faire ??


-----Message d'origine-----
Salut,

a écrit
Voici mon problème :
Je fais des copies de fichiers avec du code vba (fonction
filecopy) mais lorsque la destination n est pas disponible
(ordinateur eteind), j ai un message d erreur me disant
que la destination n est pas accessible. Cette erreur me
plante l application.
J aimerais pouvoir récupérer cette erreur pour savoir si
la copie s est bien deroulée ou non mais continuer l
execution de la procedure que cette derniere ait reusie ou
non.



Autrement dit, il te faut inclure une simple gestion
d'erreur

lorsque tu tente d'accéder/écrire ton fichier...


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------




.



Avatar
3stone
re,


Mais la question est : comment faire ??




Le principe ;-))



sub tasub()

On error goto LabelErreur

ton code filecopy...



LabelExit:
exit sub

LabelErreur:
if err.number = "le numéro si destination pas accessible"
MsgBox "Pas accessible... blabla..."
else
MsgBox "Erreur No: " & err.number & vbcrlf _
& err.description
end if

resume LabelExit

End sub


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Avatar
C est bien ce que je craignais, on ne peut pas gérer les
erreurs sur chaque fonction, on est obligé de le faire par
procédure ....

Merci quand meme!!

-----Message d'origine-----
re,


Mais la question est : comment faire ??




Le principe ;-))



sub tasub()

On error goto LabelErreur

ton code filecopy...



LabelExit:
exit sub

LabelErreur:
if err.number = "le numéro si destination pas
accessible"

MsgBox "Pas accessible... blabla..."
else
MsgBox "Erreur No: " & err.number & vbcrlf _
& err.description
end if

resume LabelExit

End sub


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------





.



Avatar
3stone
re,

C est bien ce que je craignais, on ne peut pas gérer les
erreurs sur chaque fonction, on est obligé de le faire par
procédure ....



Si, tu peux le faire dans la fonction...

encore faudrait-il savoir/connaître la fonction que tu utilise!


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Avatar
J utilise un filecopy mais vu que ce n est pas une
fonction interne, je ne pense pas que ca puisse
fonctionner. Dis toujours, on ne sait jamais :)

Merci pour ton aide


-----Message d'origine-----
Si, tu peux le faire dans la fonction...

encore faudrait-il savoir/connaître la fonction que
tu utilise!



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------




.