Discussion :

[informer]

Bienvenue chez moi,

J'implémente toujours dans mon code, la gestion des erreurs. Alors pour éviter la gestion de l'ouverture d'un Objet, peut-on dans Exit_: systématiser set oObjI = nothing en désactivant les messages d'erreur de programmation par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function fFunctionName ()
On Error goto Err_
 
     [déclaration...]
     [Code...]
 
Exit_:
      Application.AffichageMessagesAlerte = Faux (???)
      On Error Goto 0 (???)
      set oObjI = nothing
      set oObjN = nothing
 
      Exit Function 
Err_:
      msgbox err.code & " : " &  Err.Description.
      Resume Exit
 
End fFunction

Si cela n’enfreint pas les conventions de codage, quelle est la meilleur solution

GOTO 0

ou

Application.AffichageMessagesAlerte = Faux

Voilà, merci pour votre aide et n'oubliez pas : Bonjour chez vous

[loufab]

Bonjour,

AffichageMessagesAlerte est valable pour toute l'application.
On error goto 0 ne traite plus les erreurs qui se produisent après la ligne.

A noter que la première ne se met qu'une fois au démarrage de l'application alors que la seconde doit être répétée pour chaque procédure ou fonction souhaitée.

Cordialement,

[nico84]

Bonjour,

A toutes fins utiles, voici la gestion d'erreur qui me donne entière satisfaction :
Exemple de procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub adrs_DblClick(Cancel As Integer)
If Not Mode_debug Then On Error GoTo err:
100 If D_ha > 1 Or D_log > 1 Then
102   ppal = adrs
104   Me.Refresh
    End If
    Exit Sub
err: Call message("Erreur " & err.Number & "/" & Erl & " dans sdf.adrs_DblClick : " & err.description)
End Sub

"sdf" est le nom de la form
Mode_debug est vrai en développement, faux en exploitation

Procédure globale qui écrit l'erreur dans le journal de bord (table "messages") :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub message(T, Optional visu = True)
If Not Mode_debug Then On Error GoTo err:
100 DoCmd.Hourglass False
101 If Not IsNull(T) Then
102   If visu Then MsgBox T, vbExclamation, ""
103   If err.Number = 424 Then Exit Sub 'pas de msg si l'utilisateur a fermé excel ("objet requis")
108   Sr = "INSERT INTO messages (qui,quand,version,quoi) VALUES ('" _
      & Nz(User_init, "X") & "','" & Now & "','" & Vf & "','" & Apo2(Nz(T, "")) & "');"
110   CurrentDb.Execute Sr, dbFailOnError
    End If
    Exit Sub
err:
120 MsgBox "Enregistrement du message d'erreur impossible(" & Erl & ") : " & vbCr & "'" & Nz(User_init, "X") _
    & "','" & Now & "','" & Vf & "','" & Apo2(Nz(T, "")) & "'", , "Erreur"
End Sub

Seul inconvénient : il faut numéroter les lignes

[informer]

Bonjour à tous,

Merci loufab et nico84 pour vos retours.

L'explication d'un problème est toujours un exercice difficile alors et je pense ne pas avoir réussi correctement à le poser.

Ma question porte uniquement sur la gestion des objets qui peuvent :

• voir été correctement instanciés
• Ou pas dans le cas d'une erreur intervenue avant leur instanciation

Et la systématisation de l'OPÉRATION OBLIGATOIRE de fermeture des objets, en évitant :

• La vérification de leur instanciation
• La génération d'un message d'erreur suite à leur fermeture alors qu'ils n'ont pas été instanciés, information non pertinente puisque s'ils n'ont pas été instanciés c'est qu'une erreur est intervenue antérieurement et donc déjà traitée!

D'où l'appel à SET oObj = Nothing dans un handle de sortie TOUJOURS APPELÉ avec GOTO 0 pour ne jamais traiter le message d'erreur de tentative de traitement d'un objet non instancié, message d'erreur non pertinent car est en fin de routine/fonction.

Voilà et n'oubliez pas: Bonjour chez vous

[loufab]

Si tu déclares tes variables objets au plus haut de ta procédure/fonction le set nothing ne provoquera pas d'erreur.

Mettre un Goto 0 permet de prévenir ce cas de figure lors d'une réinitialisation ; effet délétère souvent constaté au déclenchement d'une erreur.

Maintenant faire un nothing sur une variable objet non instanciée mais déclarée ne pose aucun problème, si c'est la question que tu te poses.

[informer]

loufab, merci pour tes précieux retours et c'est exactement ma question.

Et pour ne pas provoquer d'erreur si un SET est appliqué sur un objet non instancié, il faut OBLIGATOIREMENT DÉCLARER EXPLICITEMENT L'OBJET.

Encore merci loufab

[loufab]

Il faut toujours créer tes modules avec Option Explicit dans l'en-tête ainsi lors de la compilation VBE indiquera que la variable utilisée n'est pas déclaré.

cf réglage VBE/outils/options/editeur/Déclaration des variables obligatoires.

Tu confonds déclaration (dim) et instanciation (set).

[informer]

Bonjour oufab

Ma dernière question fait suite à ta phrase

Maintenant faire un nothing sur une variable objet non instanciée mais déclarée ne pose aucun problème,

je comprend qu'il n'y aura pas d'erreur générée par l'instruction set oObjet = nothing même si la variable objet n'a jamais instanciée mais par contre déclarée?

Pour essayer d'être parfaitement clair, imaginons le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Private Sub Display(pPath as string)
 
On Error GoTo Err_
 
    Dim oWkSpace As DAO.Workspace
    Dim oDb As DAO.Database
    Dim oRecSet As DAO.Recordset
    Dim oField As DAO.Field
    Dim oChart As ChartObject
 
 
    Dim oXLApp As Excel.Application
    Dim oXLWbk As Excel.Workbook
    Dim oXLSht As Excel.Worksheet
 
     code provoquant une erreur => Execution de Err_: ==> Non instanciation de oXLApp & oXLWbk ....
 
    Set oXLApp = CreateObject("Excel.Application")
    Set oXLWbk = oXLApp.Workbooks.Open(pPath )
 
     code suite....
 
Exit_:
 
    Set oXLWbk = Nothing
    Set oXLApp = Nothing
 
    oRecSet.Close
    Set oRecSet = Nothing
 
    Exit Sub
 
Err_:
    MsgBox Err.Description
    Resume Exit_

Donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Exit_:
 
    Set oXLWbk = Nothing
    Set oXLApp = Nothing

ne provoquera jamais d'erreur même si le code avant l'instanciation de l'objet a provoqué une erreur et que je fait un SET oObjet = nothing dans Exit_?

Merci pour tes explications

[loufab]

C'est bien ce que j'ai dit. Il n'y a pas de double sens ni de sens caché.

Attention tu confonds encore instancier (set) et déclarer (dim).

ça par contre ça va provoquer une erreur si tu n'as pas d'instance puisque c'est une méthode.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oRecSet.Close

[informer]

Bonjour loufab

Ok pour le SET mais maintenant pour la méthode CLOSE, l'utilisation du GOTO 0 n'est-elle pas une solution pour éviter le test de l'instanciation de l'objet sachant qu'en fin de routine/fonction il faut appliquer la méthode CLOSE?

Merci pour ton avis

Et n'oubliez pas , bonjour chez vous

[loufab]

Le goto 0 est à placer en dernière extrémité sur des instructions qui peuvent échouées sans toutefois mettre en péril la poursuite du programme.

Un close peut en faire parti. C'est au développeur d'analyser au cas par cas si c'est judicieux de le faire.

Est-il judicieux de faire un test d'instanciation avant de faire un close ?

Possible mais à la discrétion du développeur. La seule question à se poser c'est :
Qu'adviendra-t-il si je fais un nothing sans faire un close auparavant ?

La non libération de l'objet et par extension de possibles fuites mémoire.
Le nothing supprime le pointeur vers l'objet en mémoire mais en aucune façon n'intervient dans la vie de l'objet. (cf objptr())

Exemple :
Fait un nothing sur un objet en automation. L'objet reste en mémoire, mais vba n'a plus de lien vers celui-ci.
Idem sur certains type de recordset : l'application peut ne pas se fermer ou encore rester en mémoire ! Maudit ACCESS ?! non mauvais développeur.

Petit exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function dummy()
on error goto errSub
Dim obj As object
Set obj = .....
'...
 
If Not (obj Is Nothing) Then
   obj.Close/quit....
Else
   'traitement...
End If
 
Set obj = Nothing
...
End Function

ou :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function dummy()
on error goto errSub
Dim obj As object
Set obj = ....
'...
 
on error goto 0
obj.Close/quit...
 
on error goto errSub
Set obj = Nothing
exit function
 
errSub:
msgbox "erreur"
 
End Function

Espérant avoir été clair.

Cordialement,

[informer]

Bonjour Loufab

beaucoup pour toutes tes explications qui répondent exactement à mes interrogations de néophyte

Quant à toi Loufab , une préco entre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

GOTO 0

et test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not (obj Is Nothing) Then

si ce code est placé en fin de programme ou tu restes sur le libre arbitre du développeur ... car nous ne sommes pas des numéros.


Une dernière question suite à l'évocation du

.close/quit

, aurais-tu un petit truc pour savoir

quand appeler à bon escient .close ou.quit genre par rapport au type de l'objet ou faut-il savoir les objets sur lesquels il faut appliquer tantôt .close tantôt .quit

Encore une fois merci pour toutes ces informations


Cordialement

Et n'oubliez pas: Bonjour chez vous

[loufab]

Concernant le choix entre goto et is nothing c'est justement ce dont je te parlais dans le mail précédent. Le dev doit être à même de savoir lequel doit être employé.

Quant à Quit/close c'est suivant la classe que tu utilises, ce n'est absolument pas normalisé. A noter que certaines n'en ont tout simplement pas et à juste raison.

Dans le cas d'une classe personnelle tu pourras très bien utiliser un autre nom de méthode de libération, obj.arret() par exemple ou obj.stop(), obj.turlututu().

Cordialement,

[informer]

Bonsoir Loufab,

Une nouvelle fois merci pour tes précieuses réponses qui me permettent de passer ce post en résolu.

Cordialement


Et n'oubliez pas : Bonjour chez vous