XL 2021 génération de QR code

JPaul78

XLDnaute Junior
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
Code:
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
 

Pièces jointes

  • Capture d'écran 2024-04-14 112917.png
    Capture d'écran 2024-04-14 112917.png
    7.5 KB · Affichages: 6
Solution
Bonjour @JPaul78, le fil

Il y avait pas loin à chercher, non ? ;)
Juste retourner sur une discussion d'XLD du 12 avril dernier.

Staple1600

XLDnaute Barbatruc
Bonjour @JPaul78, le fil

Il y avait pas loin à chercher, non ? ;)
Juste retourner sur une discussion d'XLD du 12 avril dernier.
 

JPaul78

XLDnaute Junior
Bonjour @JPaul78, le fil

Il y avait pas loin à chercher, non ? ;)
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!