XL 2021 génération de QR code

[JPaul78]

Bonjour à tous,
je souhaiterai générer un QR code en VBA. j'ai trouvé des codes existants (inspiré entre autre de Patrick Toulon) via google chart

Function QRCodeToCell(Chaine As String, _
                      Cellule As Range, _
                      Optional PicWidth As Integer = 120, _
                      Optional PicHeight As Integer = 120) As Picture
                      
    Dim Link As String
    Dim Pic As Picture
    Dim PicName As String

    'https://developers.google.com/chart/infographics/docs/qr_codes
    Link = "http://chart.googleapis.com/chart?cht=qr&chs=" & PicWidth & "x" & PicHeight & "&chl=" & Chaine

    Windows(Cellule.Parent.Parent.Name).Activate
    Cellule.Parent.Activate
    Cellule.Activate
    PicName = "QRCode_" & Cellule.Address(0, 0)

    'Supprime une Shape de ce nom éventuellement présente
    For Each Pic In ActiveSheet.Pictures
        If Pic.Name = PicName Then Pic.Delete
    Next Pic

    'Génère l'image QR Code
    Set Pic = ActiveSheet.Pictures.Insert(Link)
    Pic.Name = PicName
    Set QRCodeToCell = Pic
End Function

par contre il bugge à la ligne "Set Pic = ActiveSheet.Pictures.Insert(Link)" impossible de lire la propriété insert de la base pictures"
J'ai fait le test suivant en construisant une URL en manuel du type "https://chart.googleapis.com/chart?chs=115x115cht=qrchl=test_QR_Code" mais cela me donne " Error 404"
si je fait "https://chart.googleapis.com" cela me donne aussi "Error 404".
J'ai raté ou oublié quelque chose ou cette adresse ne fonctionne plus?
Merci de votre aide

 

[patricktoulon]

Bonjour
erro 404 est claire c'est que la page n'est pas accessible ou n'existe pas
google a durci son accès ce n'est donc plus possible sans api google donc payant
il faut trouver un autre site

 

[JPaul78]

Bonjour
erro 404 est claire c'est que la page n'est pas accessible ou n'existe pas
google a durci son accès ce n'est donc plus possible sans api google donc payant
il faut trouver un autre site

Merci Patrick de ce rapide retour. il me reste plus qu'à trouver un site équivalent..

 

[Staple1600]

Bonjour @JPaul78, le fil

Il y avait pas loin à chercher, non ? 😉

Microsoft 365 - Génération de QrCode

Bonjour à tous. Je reviens vers vous pour un problème lié à la génération d'un QRCode avec VBA. Lorsque je réalise le QRCode (avec l'api.qrserver.com), il beug à la ligne: sLink = "https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=" & CelV Il me dit "Incompatibilité de Type". Or...

excel-downloads.com

Juste retourner sur une discussion d'XLD du 12 avril dernier.

 

[JPaul78]

Bonjour @JPaul78, le fil

Il y avait pas loin à chercher, non ? 😉

Microsoft 365 - Génération de QrCode

Bonjour à tous. Je reviens vers vous pour un problème lié à la génération d'un QRCode avec VBA. Lorsque je réalise le QRCode (avec l'api.qrserver.com), il beug à la ligne: sLink = "https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=" & CelV Il me dit "Incompatibilité de Type". Or...

excel-downloads.com

Juste retourner sur une discussion d'XLD du 12 avril dernier.

Merci Staple1600, je l'avais vue mais j'ai merdouillé dans sa recopie qui me produisait une erreur identique..... Recopié correctement cela fonctionne!