[vba] EPC betaal QR code werkt niet met argenta wel belfius

[EC Admin]

Mijn vraag
Ik heb in visual basics (excel) een macro gemaakt die een EPC QR code maakt aan de hand van inputgegevens uit verschillende cellen (allemaal tekst cellen, voor elk 'item' van de EPC een nieuwe cel, zie verder).
Ik heb dit gemaakt aan de hand van de tips in dit topic: Zelf betaal QR codes maken en met als basis een code die ik hier https://exceloffthegrid.com/qr-codes-in-excel/ vond (dit was een code om bv een website naar QR code om te zetten)
Ik heb dus geprobeerd om de info van hier: https://www.europeanpayme...ation%20of%20an%20SCT.pdf te verwerken.
Als ik de QR code maak, dan kan ik ze wel scannen met de app van Belfius, maar bijvoorbeeld niet met die van Argenta, KBC. Hoewel deze banken ook vermeld worden als werkzaam met EPC QR codes.
Is er iemand die me kan zeggen wat er eventueel fout is aan mijn macro waardoor de gegenereerde QR code niet in elke bankapp werkt?

Relevante software en hardware die ik gebruik
Visual Basic in Excel
API om QRcode te maken via bv api.qrserver.com of quickchart.io

Wat ik al gevonden of geprobeerd heb
zie hier m'n macro:
'code from https://exceloffthegrid.com/qr-codes-in-excel/

Sub GenerateQRCode()

Dim text As String
Dim QRURL As String
Dim QRShape As Object
Dim QRLocation As Range

text = Cells(1, 1) & vbCrLf & Cells(1, 2) & vbCrLf & Cells(1, 3) & vbCrLf & Cells(1, 4) & vbCrLf & Cells(1, 5) & vbCrLf & Cells(1, 6) & vbCrLf & Cells(1, 7) & vbCrLf & Cells(1, & vbCrLf & Cells(1, 9) & vbCrLf & Cells(1, 10)

'ter info: cells(1,1) bevat "BCD", cells (1,2) bevat "001", cells (1,3) bevat "1", cells (1,4) bevat "SCT", cells (1,5) bevat "BICnummer" etc

Worksheets(1).Cells(2, 1) = text

'Assign variables
Set QRLocation = Sheets("Blad1").Range("C19:C25")

'Create the URL path
QRURL = "https://quickchart.io/qr?text=" & text

'Delete the previous QR code
On Error Resume Next
Sheets("Blad1").Shapes("QRCodeVBA").Delete
On Error GoTo 0

'Get and create the image
Set QRShape = Sheets("Blad1").Pictures.Insert(QRURL)

'Change placement of image
With QRShape
.Name = "QRCodeVBA"
.Top = QRLocation.Top
.Left = QRLocation.Left
.Height = QRLocation.Height
.Width = QRLocation.Height
End With

End Sub

Alvast bedankt! Groeten, Ellen

[Woy]

Het is denk verstandig om eerst te kijken of het in jouw QR code zit, of bij de bank. Zijn er bijvoorbeeld wel andere bronnen van deze qr codes die daar werken?

Een QR code is niet meer dan wat data encoded, dus scan ze ook eens gewoon terug naar de data en kijk of de data die er in staat de data is die je verwacht. Mogelijk staan er bijvoorbeeld extra whitespace in die niet volgens de standaard is, waar niet alle banken mee om kunnen gaan.