Discussion :

[Gesphy]

Bonjour,
Je dispose d'un fichier Excel avec du code VBA qui calcule un QRCode et qui le dessine dans un shape.
Existe-t-il la même possibilité dans Access, soit de remplir une forme carrée par VBA avec des points ?
L'idée serait d'adapter le code Excel pour Access, mais je ne trouve pas cette correspondance d'un "shape" en Access.
Merci pour vos idées

[Jean-Philippe André]

Bonjour,

regarde si cette idée est utile dans ton cas ?

https://blog.developpez.com/philben/...access/qr_code

[Paraffine]

Bonjour Gesphy,

La solution proposée par Jean-Philippe André me parait tout à fait indiquée si tu utilises un web service.

Si ton code Excel génère un QRcode offline (et que tu veux garder ce fonctionnement), Access pourra difficilement "reprendre" le code VBA Excel et l'exécuter pour son compte; comme tu l'as noté, il n'a pas les mêmes collections...
Par contre, tu peux toujours piloter Excel depuis Access avec le mécanisme d'Automation pour obtenir la fameuse Shape en Excel, puis insérer le résultat dans un état Access.
Je n'ai pas vu de littérature pour inclure directement une Shape Excel dans un état ; mais si tu sais la convertir en image, tu la récupéreras sans trop de mal.

[Gesphy]

Bonjour Jean-Philippe et Paraffine,

Merci pour vos réponses.
J'avais déjà testé la solution de philben, mais cela n'est pas OK pour 2 raisons:
- j'aimerais rester "autonome" et ne pas dépendre d'un site ou d'une connexion internet.
- le QRCode généré par le site n'est pas lu par les applications bancaires en suisse. En effet c'est pour produire un Swiss-QRCode sur les nouveaux bulletins de versement. Les apps bancaires de lecture de ce QRCode sont très "sensibles". Par contre le QRCode produit par le code Excel est parfaitement lu.

Je suis effectivement actuellement en train de creuser l'idée de Paraffine de piloter Excel depuis Access. Je donnerai des nouvelles si j'y arrive.
Cordialement

[hyperion13]

Salut
A la volée j'ai trouvé
ceci et cela
Peut-être que ...

[Gesphy]

Merci pour vos idées et réponses.
Finalement j'ai trouvé une solution avec un Activex trouvé ici: https://github.com/Combinatix/QRCodeAX
Je l'avais déjà testé mais il me restait un problème de lecture avec les applications bancaires, mais cela fonctionnait très bien avec des lecteurs QR standard.

Après moults tests j'ai trouvé le bug, étrange d'ailleurs à mon avis: dans le SwissQRCode il y a beaucoup de retour à la ligne, et dans mon code j'avais utilisé chr(10) + chr(13), et c'est cela qui causait le bug. Il fallait inverser: chr(13) + chr(10), ou mieux utiliser la constante VbCrLf.

[Cem]

Bonjour,

L'active X suggéré (QRCodeAX.ocx) ne permet pas directement de générer un SwissQRcode me semble-t-il? Y aurait-il un autre ActiveX qui le permettrait?

Merci pour vos réponses
Cem

[Gesphy]

hello, j'ai pu l'utiliser en rajoutant le logo croix-suisse au milieu.
Sinon il existe des solutions payantes, par exemple chez: SmartTools

[pierrot77]

Bonjour,

je dois adapter un programme Access 2019 avec ce nouveau QR-Facture suisse. Cette association pour enfants ne facture qu'une fois par année un montant unique de fr 30.-

Pourrais-tu me conseiller pour intégrer ta solution ActiveX à Access car je ne l'ai jamais fait?

D'avance un grand MERCI

Meilleures salutations

hello, j'ai pu l'utiliser en rajoutant le logo croix-suisse au milieu.
Sinon il existe des solutions payantes, par exemple chez: SmartTools

[Gesphy]

Bonjour Pierrot,

Cela n'est pas une mince affaire, j'ai dû pas mal tatonner pour arriver à mes fins.
Dans ton cas (une facture annuelle de 30.-) ne serait-ce pas plus simple de donner un BV pré-imprimé de la banque ?
Ou bien acheter une licence chez SmartTools.de, c'est 150 euro et cela t'évitera bien des soucis !

Salutations

[loufab]

Bonjour,

J'ai développé une solution autonome pour une entreprise Suisse qui a une application Access de facturation. Ce n'est pas une mince affaire en effet, mais quand même beaucoup plus simple que le facture-X Européen.

Cordialement,

[francois91700]

Bonjour, j'essaye d'utiliser QRCodeAX, mais malgré une galère pour réussir l'installation du fichier ocx, il n'apparait pas dans la liste des contrôles activex.
Avez vous une idée à me proposer ?
Merci d'avance

Merci pour vos idées et réponses.
Finalement j'ai trouvé une solution avec un Activex trouvé ici: https://github.com/Combinatix/QRCodeAX
Je l'avais déjà testé mais il me restait un problème de lecture avec les applications bancaires, mais cela fonctionnait très bien avec des lecteurs QR standard.

Après moults tests j'ai trouvé le bug, étrange d'ailleurs à mon avis: dans le SwissQRCode il y a beaucoup de retour à la ligne, et dans mon code j'avais utilisé chr(10) + chr(13), et c'est cela qui causait le bug. Il fallait inverser: chr(13) + chr(10), ou mieux utiliser la constante VbCrLf.

[User]

Bonjour,

Pourquoi ne pas utiliser une adresse quickchart.io :

https://quickchart.io/qr?text=bonjour

Sur l'événement au formatage de la section détail de l'état on utilise l'adresse :

"https://quickchart.io/qr?text=" & Me.[QRCode]

et la fonction DownloadHTTP du tuto d'arkham pour télécharger le résultat dans un fichier image QRCode.png, puis charger le pgn dans un contrôle image :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
   Dim destination As String
 
    destination = CurrentProject.Path & "\QRCode.png" ' chemin de l'image générée : ici c'est le dossier de la base Access.
 
    Call DownloadHTTP("https://quickchart.io/qr?text=" & Me.[QRCode], destination) ' Création de l'image
 
    Me.imgQR.Picture = destination ' Affectation de l'image au contrôle
 
End Sub

Je joins la base de test pour avoir l'idée..

Cdlt,

[loufab]

J'ai pensé à un moment d'utiliser un truc en ligne, mais pour la pérennité du système j'ai préféré utiliser une solution en local.

La société Suisse l'utilise depuis plus d'un an. Aucun retour négatif de leur part. Aucune facture rejeté, l'intégralité du modèle Swiss-QrCode est couvert.

[Gesphy]

Bonjour Loufab,

Quelle est ta solution ? as-tu utilisé un OCX existant ?
Car je suis de nouveau à la recherche d'une solution pour Access 64 bits, le QrCodeAx.ocx étant uniquement en 32 bits.

Cordialement

[Gesphy]

Bonjour, j'essaye d'utiliser QRCodeAX, mais malgré une galère pour réussir l'installation du fichier ocx, il n'apparait pas dans la liste des contrôles activex.
Avez vous une idée à me proposer ?
Merci d'avance

Bonjour François, après avoir déclaré l'ocx dans la base de registre Windows, as-tu bien coché la référence dans l'environnement VBA (Outils-références) ?
Sinon je ne vois pas ...

[User]

J'ai pensé à un moment d'utiliser un truc en ligne, mais pour la pérennité du système j'ai préféré utiliser une solution en local.

La société Suisse l'utilise depuis plus d'un an. Aucun retour négatif de leur part. Aucune facture rejeté, l'intégralité du modèle Swiss-QrCode est couvert.

Loin de moi l'idée de remettre en question la qualité de ton travail, cela dit la pérennité est un vrai sujet de réflexion surtout actuellement

[Gesphy]

Bonjour,

Pourquoi ne pas utiliser une adresse quickchart.io :

https://quickchart.io/qr?text=bonjour

Sur l'événement au formatage de la section détail de l'état on utilise l'adresse :

"https://quickchart.io/qr?text=" & Me.[QRCode]

et la fonction DownloadHTTP du tuto d'arkham pour télécharger le résultat dans un fichier image QRCode.png, puis charger le pgn dans un contrôle image :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
   Dim destination As String
 
    destination = CurrentProject.Path & "\QRCode.png" ' chemin de l'image générée : ici c'est le dossier de la base Access.
 
    Call DownloadHTTP("https://quickchart.io/qr?text=" & Me.[QRCode], destination) ' Création de l'image
 
    Me.imgQR.Picture = destination ' Affectation de l'image au contrôle
 
End Sub

Je joins la base de test pour avoir l'idée..

Cdlt,

Merci User, j'ai testé cette solution qui fonctionne parfaitement, le Qr-Code est lu correctement par les applications bancaires suisses. Le seul défaut est de ne pas être autonome et d'être "à la merci" d'un site Web, cela est problématique pour une application commerciale.

[User]

Bonjour,

Oui j'avoue ne pas avoir de garantie à ce niveau.

Si tu lis l'anglais il donnent pas mal d'infos sur quickchart :

https://quickchart.io/qr-code-api/

Cdlt,