Création Formule Excel

[CharlesSSQ]

Bonjour,

J'ai besoin d'aide sur un programme de création de formule Excel en VBA. Voici la macro, la formule fontionne mais le résultat ne sort pas. le tout reste vide.

Sub formule()
Public Function SSQGetData(ByVal MySheet As Variant, ByVal MyRange As Variant, ByVal Ticker As Variant, ByVal Quarter As Date) As Variant
    Dim code As Variant
    code = Application.HLookup(Ticker, Workbooks("data.xls").Worksheets(MySheet).Range(MyRange), 2, False)
    SSQGetData = Application.WorksheetFunction.Text(Application.VLookup(Quarter, Workbooks("data.xls").Worksheets(MySheet).Range(MyRange), code, False), " mmm-aa")
End Function
End Sub

J'ai mis deux print screen de ce que je souhaite faire le lien entre... car le fichier sont trop gros.
Si vous pouviez me guider cela serait super.

Merci

 

[kjin]

Re : Création Formule Excel

Bonsoir,
Poster des images me parait qq peu illusoire !
Pourquoi diable vouloir faire passer tout le fichier !!!
A+
kjin