Importation des taux de change du site Web du NBU dans Excel

NBU_RATE() descriptif

Une fonction toute prête pour ceux qui doivent souvent utiliser les taux de change NBU dans Excel .

Aide à obtenir automatiquement la valeur du taux de change de Site Web du Nouveau-Brunswick par son code et sa date.

VBA code pour la fonction NBU_RATE

Pour ajouter une fonctionnalité taux de change d'importation de la NBU , ouvrez le menu Service - Macros - Visual Basic Editor , insérez le nouveau module (menu Insert - Module ) et copiez-y le texte de cette fonction :

Function NBU_RATE(ByVal pCurrency, ByVal pDate)
  'moonexcel.com.ua 
  If Len(pCurrency) = 0 Or Len(pDate) = 0 Then Exit Function
  
  With WorksheetFunction
    tDate = .Text(pDate, "YYYYMMDD")
    Website = "https://bank.gov.ua/NBU_Exchange/exchange_site"
    RequestString = Website & "?start=" & tDate & "&end=" & tDate & "&valcode=" & pCurrency
    WebServiceResponse = .WebService(RequestString)
    NBU_RATE = .FilterXML(WebServiceResponse, "//rate_per_unit")
  End With
End Function

Ferme-le Visual Basic Editor et revenir à Excel .

Vous pouvez maintenant entrer manuellement notre fonction NBU_RATE() . La syntaxe de cette fonction est la suivante :

=NBU_RATE ( code de devise ; date )

Nous aurons le résultat suivant :

Utiliser l'extension

Vous pouvez également utiliser la fonction NBUA() en installant l'extension gratuite YouLibreCalc.xlam .

Après cela, cette fonction sera disponible dans tous les fichiers qui seront ouverts dans Excel.