[Erreur VB] Lignes de codes pour l'application au complet
5 réponses
Daniel
Bonjour.
Je d=E9sire cr=E9er quelques lignes de code affichant, d=E9pendament du =
num=E9ro de l'erreur, un MsgBox. Le probl=E8me c'est que je ne veux pas =
mettre toutes ces lignes de codes dans chacune de mes Forms, mais je =
veux que le code fonctionne partout dans mon Application. La r=E9ponse =
est s=FBrement tr=E8s simple... J'ai un module auquel je peux cr=E9er ce =
que je veux, mais je ne savais pas trop comment m'y prendre.
Merci de poster les réponses au groupe afin d'en faire profiter à tous
Daniel
Bonjour.
C'est bon je vais aller consulter, et veuillez ingorer le nouveau sujet un peu plus haut. Je suis désolé si je dois encore mettre ça sur la faute de Outlook Express mais c'est bien une mauvaise manipulation de touches qui en résulte.
-- Merci d'avance de vos réponces.
Cordialement Daniel - Z
Bonjour.
C'est bon je vais aller consulter, et veuillez ingorer le nouveau sujet un peu plus haut. Je suis désolé si je dois encore mettre ça sur la faute de Outlook Express mais c'est bien une mauvaise manipulation de touches qui en résulte.
C'est bon je vais aller consulter, et veuillez ingorer le nouveau sujet un peu plus haut. Je suis désolé si je dois encore mettre ça sur la faute de Outlook Express mais c'est bien une mauvaise manipulation de touches qui en résulte.
-- Merci d'avance de vos réponces.
Cordialement Daniel - Z
Daniel
Bonjour.
J'ai installé votre petite application. C'est un bon utilitaire. Exige-t-il une DLL de plus à mettre dans un programme d'installation (empaquetage) pour ceux qui n'ont pas VB ?
Sinon, il n'a pas vraiment fait mon bonheur puisque comme il est fait, il faut tout simplement mettre 400 lignes de codes dans chaque procédure si on veut un mesasge personnalisé pour chaque erreur. Si je compte le nombre de procédure dans mon application, je crois que cela serait lourd.
N'y a-t-il pas moyen de tout mettre ça dans un Sub, à l'intérieur d'un module puis d'appeller ce Sub dans toutes nos procédures, sans que cela ne soit trop lourd ? Cela éviterait de devoir écrire le code plusieurs fois, d'autant plus qu'on aurait qu'à le modifier une seule fois si tel était le cas...
-- Merci d'avance de vos réponces.
Cordialement Daniel - Z
Bonjour.
J'ai installé votre petite application. C'est un bon utilitaire.
Exige-t-il une DLL de plus à mettre dans un programme d'installation (empaquetage) pour ceux qui n'ont pas VB ?
Sinon, il n'a pas vraiment fait mon bonheur puisque comme il est fait, il faut tout simplement mettre 400 lignes de codes dans chaque procédure si on veut un mesasge personnalisé pour chaque erreur. Si je compte le nombre de procédure dans mon application, je crois que cela serait lourd.
N'y a-t-il pas moyen de tout mettre ça dans un Sub, à l'intérieur d'un module puis d'appeller ce Sub dans toutes nos procédures, sans que cela ne soit trop lourd ? Cela éviterait de devoir écrire le code plusieurs fois, d'autant plus qu'on aurait qu'à le modifier une seule fois si tel était le cas...
J'ai installé votre petite application. C'est un bon utilitaire. Exige-t-il une DLL de plus à mettre dans un programme d'installation (empaquetage) pour ceux qui n'ont pas VB ?
Sinon, il n'a pas vraiment fait mon bonheur puisque comme il est fait, il faut tout simplement mettre 400 lignes de codes dans chaque procédure si on veut un mesasge personnalisé pour chaque erreur. Si je compte le nombre de procédure dans mon application, je crois que cela serait lourd.
N'y a-t-il pas moyen de tout mettre ça dans un Sub, à l'intérieur d'un module puis d'appeller ce Sub dans toutes nos procédures, sans que cela ne soit trop lourd ? Cela éviterait de devoir écrire le code plusieurs fois, d'autant plus qu'on aurait qu'à le modifier une seule fois si tel était le cas...
-- Merci d'avance de vos réponces.
Cordialement Daniel - Z
Pierre Fauconnier
Bonjour
Peut-être avec ceci. Dans chaque Proc, mettre le code suivant
Sub MaProc() On Error Goto Erreurs ... ... ... Erreurs: If Err() <>0 Then DescriptionErreur Err() End Sub
Et créer dans un module standard Function DescriptionErreur(NoErr As long) Select Case NoErr Case ... ... Case ... ... End Select End Function
-- Cela convient-il? ---- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (remplacer NOSPAM par pfi pour me répondre. Merci)
--- Daniel wrote:
Bonjour.
J'ai installé votre petite application. C'est un bon utilitaire. Exige-t-il une DLL de plus à mettre dans un programme d'installation (empaquetage) pour ceux qui n'ont pas VB ?
Sinon, il n'a pas vraiment fait mon bonheur puisque comme il est fait, il faut tout simplement mettre 400 lignes de codes dans chaque procédure si on veut un mesasge personnalisé pour chaque erreur. Si je compte le nombre de procédure dans mon application, je crois que cela serait lourd.
N'y a-t-il pas moyen de tout mettre ça dans un Sub, à l'intérieur d'un module puis d'appeller ce Sub dans toutes nos procédures, sans que cela ne soit trop lourd ? Cela éviterait de devoir écrire le code plusieurs fois, d'autant plus qu'on aurait qu'à le modifier une seule fois si tel était le cas...
Bonjour
Peut-être avec ceci. Dans chaque Proc, mettre le code suivant
Sub MaProc()
On Error Goto Erreurs
...
...
...
Erreurs:
If Err() <>0 Then DescriptionErreur Err()
End Sub
Et créer dans un module standard
Function DescriptionErreur(NoErr As long)
Select Case NoErr
Case ...
...
Case ...
...
End Select
End Function
--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)
---
Daniel wrote:
Bonjour.
J'ai installé votre petite application. C'est un bon utilitaire.
Exige-t-il une DLL de plus à mettre dans un programme d'installation
(empaquetage) pour ceux qui n'ont pas VB ?
Sinon, il n'a pas vraiment fait mon bonheur puisque comme il est
fait, il faut tout simplement mettre 400 lignes de codes dans chaque
procédure si on veut un mesasge personnalisé pour chaque erreur. Si
je compte le nombre de procédure dans mon application, je crois que
cela serait lourd.
N'y a-t-il pas moyen de tout mettre ça dans un Sub, à l'intérieur
d'un module puis d'appeller ce Sub dans toutes nos procédures, sans
que cela ne soit trop lourd ? Cela éviterait de devoir écrire le code
plusieurs fois, d'autant plus qu'on aurait qu'à le modifier une seule
fois si tel était le cas...
Peut-être avec ceci. Dans chaque Proc, mettre le code suivant
Sub MaProc() On Error Goto Erreurs ... ... ... Erreurs: If Err() <>0 Then DescriptionErreur Err() End Sub
Et créer dans un module standard Function DescriptionErreur(NoErr As long) Select Case NoErr Case ... ... Case ... ... End Select End Function
-- Cela convient-il? ---- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (remplacer NOSPAM par pfi pour me répondre. Merci)
--- Daniel wrote:
Bonjour.
J'ai installé votre petite application. C'est un bon utilitaire. Exige-t-il une DLL de plus à mettre dans un programme d'installation (empaquetage) pour ceux qui n'ont pas VB ?
Sinon, il n'a pas vraiment fait mon bonheur puisque comme il est fait, il faut tout simplement mettre 400 lignes de codes dans chaque procédure si on veut un mesasge personnalisé pour chaque erreur. Si je compte le nombre de procédure dans mon application, je crois que cela serait lourd.
N'y a-t-il pas moyen de tout mettre ça dans un Sub, à l'intérieur d'un module puis d'appeller ce Sub dans toutes nos procédures, sans que cela ne soit trop lourd ? Cela éviterait de devoir écrire le code plusieurs fois, d'autant plus qu'on aurait qu'à le modifier une seule fois si tel était le cas...
