none
Accès aux propriétés d'un module de classe dans une sous procédure [resolu] RRS feed

  • Question

  • Bonjour,

    Je débute avec les classes d'objets.

    J'ai créée une classe DonnéesExcel contenant :

    °un Let lectureFicExcel(nomfichier)
    qui récupères des infos dans le fichier excel et les affecte à des variables
    exemple MaVariable

    °un get property MaVariable
    qui renvoi la valeur de cette variable.

    j'ai crée une procédure Proc1 dans laquelle je fais appel à cette classe
    dim FicExcelEnCours as new DonnéesExcel 

    Je passe le nom de mon fichier excel 
    DonnéesExcel.lectureFicExcel = "nom de mon fichier"
    et je peux utiliser ma propriété 

    toto =  DonnéesExcel.MaVariable
    jusqu'ici tous va bien 

    J'ai une autre procédure Proc2 qui est appelée par Proc1
    or dans cette procédure je n'ai plus accés aux propriétés de ma classe.
    titi =  DonnéesExcel.MaVariable me renvois une erreur (type mistmacth)

    Quel épisode ai-je raté ? :?

    Merci de votre aide

    • Modifié Docserta jeudi 7 août 2014 14:07
    jeudi 1 mai 2014 12:02

Toutes les réponses

  • Bon soir,

    vous pouvez faire comme ça:

    Public Sub Proc1()
    Dim FicExcelEnCours as New DonneesExcel
    
    'your code goes here...
    
    Call Proc2 (FicExcelEnCours)
    
    'your code goes here...
    
    End Sub
    
    
    Public Sub Proc2(clsFicExcel As DonneesExcel)
    
    'do not create New instance of clsFicExcel
    
    clsFicExcel.QuelqueChose
    
    'your code goes here
    
    End Sub


    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br - Access FAQ: www.accessfaq.com.br


    vendredi 23 mai 2014 22:23
  • Bonsoir, Je n'avais pas vu votre réponse. J'ai donc contourné la difficulté.

    Je vais reprendre mon code et tester votre solution.

    Merci.

    jeudi 24 juillet 2014 20:08
  • J'ai finalement trouvé la solution.

    Il suffit de déclarer mon objet "Public"

    Public FicExcelEnCours as new DonnéesExcel

    au lieu de 

    dim FicExcelEnCours as new DonnéesExcel

    Merci de votre aide

    jeudi 7 août 2014 14:06