Question sur les classes en VBA

Bonjour,

Je cherche une information au niveau des classes en VBA excel.

Mon cas :

Je crée un module de classe simple (contenant uniquement un constructeur et un destructeur) qui se nomme CBook:

Code:

---

1 2 3 4 5 6 7 8 9

' Module de classe "CBook" ' Constructeur Private Sub class_initialize() End Sub   ' Destructeur Private Sub class_terminate() End Sub

---

Je crée dans un module une variable globale de ce type :

Code:

---

Public book = new CBook

---

J'initialise à l'ouverture du classeur et je détruit à la fermeture du classeur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Workbook_Open()   Set book = Nothing Set book = New CBook   End Sub     Private Sub Workbook_BeforeClose(Cancel As Boolean)   Set book = Nothing   End Sub

---

Est-ce une pratique correcte sur vba excel ?
Si c'est correct, j'ai un problème car en cours d'utilisation d'excel l'objet "book" se perd tout seul en cours de route sans appeler son destructeur (j'ai mis un msgbox dans le destructeur pour être sur) et provoque une erreur.
Qu'est-ce qui fait (quel événement peut se produire pour) qu'un objet contenant une classe de détruise tout seul sans appeler le destructeur ?

Merci par avance pour votre aide

Romain

Bonjour,

n’étant pas un expert du sujet je te propose seulement de regarder cette discussion : à propos de la fonction Class_Terminate

Par contre je me demande quel est le type de l'object "book" enfin... euh non c'est mal dit ! cette classe doit interagir avec quel type d'objet et dans quel but ?

Philippe

Salut

Dans le code que tu donnes, tu crées une instance implicite au moment de l'ouverture du classeur avec la déclaration qui est faite dans le module (à cause de l'utilisation de mot clé "new").
Puis quand l'événement Open est appelé, tu détruits cette instance et tu en crées une nouvelle.

Donc, soit dans le code du module tu te contentes de déclarer le type d'objet mais sans créé une instance

Code:

---

Public Book as CBook

---

Puis dans le open tu crées l'instance

Code:

---

Set Book = new CBook

---

Soit tu te contente de la déclaration

Code:

---

Public Book as new CBook

---

Dans le module et tu ne met rien dans le Open.

Dans le principe c'est fonctionnel maintenant je sais que si Pierre Fauconnier passe ici, il te dirait sans doute qu'il vaut mieux gérer ta variable avec une fonction et une variable static. J'espère qu'il interviendra sur cette discussion, j'utilise souvant les classes pas souvent de cette façon, alors la compréhension que j'ai de cette méthode n'est peut-être pas complète.
Dans un Module

Code:

---

1 2 3 4 5

Public Function Book as book Static statBook as CBook If statBook is nothing then set statBook = new CBook Set Book = statBook End if

---

N'importe où dans le code

Code:

---

Book.titre = "Les Mots sont des fenêtre. Et parfois se sont des murs"

---

Cette ligne de code crée une instance et renseigne le titre de l'ouvrage.
Quand dans ton code tu fais appelles à Book, il vérifie systématiquement que statBook est bien instancié. Si ça n'est pas le cas, il crée une nouvelle instance.
Bien sûr si tu détruits ou si ton instance se plante*, les données que tu as stocké dedans sont perdues et lors du prochain appel à Book, tu vas te retrouver avec une nouvelle instance "vierge".

Je dirais que ça dépend de ce que tu souhaites faire.
Quand je vois une classe Book, je me dis qu'il doit y avoir une classe Books pour collectionner les Book. Dans ce cas la, l'instance Book sera créée, puis passée à books qui assurera sa destruction. Dans ce cas de figure C'est la classe Books qui sera public (ou static).
Si tu veux plus d'info sur l'utilisation des classes dans VBA tu as le tuto de Pierre F. sur le sujet (il n'y aborde pas la méthode "Static"). Pierre avait donné un exemple dans une discussion mais je ne remet pas la main dessus...

* :S'agissant de ton problème de perte d'instance, la comme ça je dirais que si tu es en phase de tests et que lors d'une erreur si à un moment donné tu choisis de terminer l'exécution du code.

• soit avec le bouton "Fin" dans le message d'erreur
• soit après avoir choisi débogage puis avoir arrêté l'exécution avec le bouton réinitialiser [le carrè comme sur les lecteur audio])

Alors les variables sont réinitialisées et ton instance de classe est détruite... d’où l'importance de bien faire sa gestion d'erreur pour éviter que l'utilisateur ne se retrouve fasse à la fenêtre proposant de mettre fin ou de déboguer.

++
Qwaz