Une fonction prête à l'emploi pour ceux qui doivent souvent utiliser les taux de change NBU dans LibreOffice Calc.
Aide à obtenir automatiquement la valeur du taux de change de Site Web du Nouveau-Brunswick par son code et sa date.
Pour ajouter la fonction d'importation des taux de change NBU, ouvrez le menu Tools - Macros - Edit Macros..., sélectionnez Module1 et copiez le texte suivant dans ce module :
Function NBU_RATE(ByVal pCurrency, ByVal pDate) 'moonexcel.com.ua Dim FCalc As Object If Len(pCurrency) = 0 Or Len(pDate) = 0 Then Exit Function FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess") tDate = FCalc.callFunction("TEXT", Array(pDate,"YYYYMMDD")) RequestString = "https://bank.gov.ua/NBU_Exchange/exchange_site?start=" & tDate & "&end=" & tDate & "&valcode=" & pCurrency WebServiceResponse = FCalc.callFunction("WEBSERVICE", Array(RequestString)) NBU_RATE = FCalc.callFunction("FILTERXML", Array(WebServiceResponse,"//rate_per_unit")) End Function
Fermez Macro Editor et revenez à LibreOffice Calc.
Vous pouvez maintenant saisir manuellement notre fonction NBU_RATE(). La syntaxe de cette fonction est la suivante :
=NBU_RATE (
Nous aurons le résultat suivant :
Vous pouvez également utiliser la fonction NBURATE() en définissant l'extension " YouLibreCalc.oxt ". Après cela, cette fonction sera disponible dans tous les fichiers qui seront ouverts dans LibreOffice Calc.