informer

Généralement une erreur arrête l'exécution du code et j'ai donc ce modèle

Code vba :

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 function myFunction ()
 
 On Error GoTo Err_
     ... Code
 
Exit_:
 
Exit function
 
Err_:
 
    sMsg = Err.Number & char(13) & Err.Description
    Goto Exit_
 
End function

Quand je clos/quite/ libére des objets après Exit_: naïf que je suis, je pensais que la ...