Problème avec CallByName()

Bonjour,

Je voudrai utiliser CallByName() mais je ne la comprend pas très bien.
Le but est d'utilisé un argument passé en paramétré et de faire le rapprochement avec une fonction de ma classe. Dur à expliquer

Mon code :

Classe Dossier

Code:

1
2
3
4
5
6
7
8
9
10
 
Public Property Get lire_chemin_fichier_FR() As String
    lire_chemin_fichier_FR = lire_emplacement_racine + templates + "\" + fiche_Renseignement
End Property
Public Property Get lire_chemin_fichier_FC() As String
    lire_chemin_fichier_FC = lire_emplacement_racine + templates + "\" + fiche_Competition
End Property
Public Property Get lire_chemin_fichier_FAE() As String
    lire_chemin_fichier_AE = lire_emplacement_racine + templates + "\" + fiche_auto_evaluation
End Property

Maintenant je voudrai faire appel a l'une des 3.
Je procéde ainsi :

Fonction

Code:

1
2
3
4
5
6
7
8
 
Sub gene_fiche(fiche As String)
    Dim wDossier As New Dossiers
    Dim procedure as string
    dim fonc as string
    procedure = "lire_chemin_fichier_" & fiche
    fonc = CallByName(wDossier, procedure, VbMethod)
end sub

Appel de ma fonction :

Code:

1
2
3
4
5
 
Dim nom_fonc As String
    nom_fonc = "FR"
 
    gene_fiche (nom_fonc)

Si quelqu'un peut m'éclairer SVP :help: