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
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
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 Functionpar 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