Bonjour
Ta gestion de trace rend difficile à suivre ton programme...
S'investir "fonctionnellement" me demanderait par ailleurs pas mal de temps
pour tenter de comprendre ce que tu veux faire.
Toutefois un rapide examen du code me pose question : tu ne prévois
aucune gestion de sortie normale dans tes procédures d'erreur.
Tu fais toujours quelque chose comme :
'**********************************************
Sub Controler_Calcule(Optional evt As Object)
On Error goto Erreur
...
... Bilan_Calculer(Controler_LeBilan())
Erreur:
LeBilanExiste = false
LeBilan = Null
Debug_Catch("Controler")
Debug_Fin()
End Sub
'**********************************************
Autrement dit, tu exécutes systématiquement tes procédures d'erreur.
Ceci explique peut-être tes problèmes... En général on fait qq chose comme:
'**********************************************
Sub Controler_Calcule(Optional evt As Object)
On Error goto Erreur
...
... Bilan_Calculer(Controler_LeBilan())
Controler_Calcule_Exit:
exit sub
Erreur:
LeBilanExiste = false
LeBilan = Null
Debug_Catch("Controler")
Debug_Fin()
Resume Controler_Calcule_Exit:
End Sub
'**********************************************
Cordialement
Pierre-Yves
--
View this message in context:
http://nabble.documentfoundation.org/OooBasic-Initialisation-des-variables-et-Singleton-tp4116019p4116126.html
Sent from the Users mailing list archive at Nabble.com.
--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être
supprimés