'Lancer une fonction par son nom
'Arguments de la fonction VB CallByNAme
'oObject -> Objet contenant la méthode à appeler
'sName -> Nom (type String) de la méthode à appeler
'cType -> Type de la méthode (VbGet, VbLet, VbSet, VbMethod)
'Args() -> Tableau de Variant pour les arguments
'Valeur de retour : ce que retourne votre fonction
Public Function ByStringName(sName As String, oObject As Object, cType As VbCallType, _
Args() As Variant) As Variant
ByStringName = CallByName(oObject, sName, cType, Args())
End Function