Utilisation API avec VBA

Bonjour à tous,

J'ai voulu re utiliser une macro qui utiliser 'Acrobat distiller' pour le retravail de PDF, notamment les fusions, cependant cette méthode ne fonctionne plus.

J'aimerais essayé par pur curiosité d'utiliser une API (pspdfkit) pour constater le résultat.PDF API

J'ai une erreur sur la ligne 'Set JsonResponse = JsonConverter.ParseJson(HttpRequest.ResponseText)' Jsonconverter me renvoie une erreur de type 'error parsing json'

Est ce qu'une personne à déjà utilisé ce module Jsonconverter, et peux m'éclaircir sur ce blocage ?

Sub InterrogerAPI()
    Dim Url As String
    Dim HttpRequest As Object
    Dim JsonResponse As Object

    ' URL de l'API que vous souhaitez interroger
    Url = "https://dashboard.pspdfkit.com/api/"
    cle = "pdf_live_SONr4XuhoDxxxxxxxxxxxxxxxxxxxxxxxxxxx"

    ' Créez une instance de l'objet XMLHttpRequest
    Set HttpRequest = CreateObject("MSXML2.ServerXMLHTTP.6.0")

    ' Ouvrez la connexion vers l'API
    HttpRequest.Open "GET", Url, cle

    ' Envoyez la requête
    HttpRequest.Send

    MsgBox HttpRequest.ResponseText

    ' Vérifiez si la requête a réussi
    If HttpRequest.Status = 200 Then
        ' Utilisez JsonConverter pour analyser la réponse JSON
        Set JsonResponse = JsonConverter.ParseJson(HttpRequest.ResponseText)

        ' Vous pouvez accéder aux données JSON ici
'        Debug.Print JsonResponse("document") ' Remplacez "key1" par la clé JSON que vous souhaitez récupérer
'        Debug.Print JsonResponse("key2")
    Else
        ' Gérez les erreurs ici
        Debug.Print "La requête a échoué avec le code : " & HttpRequest.Status
    End If

    ' Libérez les objets
    Set HttpRequest = Nothing
    Set JsonResponse = Nothing

End Sub