Comment déplacer un lien d'une page vers une autre ( résultat un Qr code)

VBA
1

Bonjour à tous,

voila mon soucis,
dans une feuille excel en A5 par ex, j’introduis une adresse web et je voudrais bien que mon code vba lui dise de générer un qr code de ce lien et qui le range dans la cellule A1 de ma seconde feuille.
J ai deja un bout , ça me génère un qr code mais je ne sais pas comment lui dire de le ranger dans la seconde feuille en A1

Function GenerateQR(qrcode_value As String)
Dim URL As String
Dim My_Cell As Range
Set My_Cell = Application.Caller
URL = « https://chart.googleapis.com/chart?chs=100x100&&cht=qr&chl= » & qrcode_value
On Error Resume Next
ActiveSheet.Pictures(« My_QR_CODE_ » & My_Cell.Address(False, False)).Delete
On Error GoTo 0
ActiveSheet.Pictures.Insert(URL).Select
With Selection.ShapeRange(1)
.Name = « My_QR_CODE_ » & My_Cell.Address(False, False)
.Left = My_Cell.Left + 5
.Top = My_Cell.Top + 5
End With
GenerateQR = «  »
End Function

Merci à vous,

2

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.