Je voudrais savoir s'il est possible, dans un module de classe, de faire référence au nom avec lequel a été défini l'objet du module.
Par exemple, imaginons que j'ai un module de classe "MonModuleDeClasse":
Code:
Option Explicit
Function TrouverLeNom () as String
TrouverLeNom = '?????????????
End Function
Et j'appelerai la fonction ainsi:
Code:
Sub Main()
Dim Toto As New MonModuleDeClasse
Dim Titi as New MonModuleDeClasse
MsgBox Toto.TrouverLeNom 'Affiche "Toto"
MsgBox Titi.TrouverLeNom 'Affiche "Titi"
End Sub
Je ne sais pas s'il existe une manière de se référer, dans un module de classe, au nom de l'objet généré...