Générer un seul QRCode Excel

Résolu
Bonjour

J'ai besoin urgent de GENERER UN SEUL CODE QR A PARTIR DE PLUSIEURS CELLULES D UNE GRILLE EXCEL
ex. nous avons plusieurs éléments à lier pour un client et communiquer les numéros de série de chaque élément par le biais d'un seul code QR

Est-il possible ?

7 réponses

  1. Contributeur
    Bonjour,

    voici un exemple a adapter . Les valeurs sont en B2 et B3:

    Option Explicit
    Private Sub CommandButton1_Click()
    QRCode
    End Sub
    Sub QRCode()
     Dim Link As String, TXT As String
     TXT = Cells(2, 2) & vbCrLf & Cells(3, 2) 'a adapter
     supprimerqrcode
     Link = "http://chart.googleapis.com/chart?cht=qr&chs=145x135&chl=" & TXT
     Worksheets("Feuil1").Range("A5").Activate 'a adapter
    Worksheets("Feuil1").Pictures.Insert (Link)
     End Sub
    Sub supprimerqrcode()
    Dim sh As Shape
    For Each sh In ActiveSheet.Shapes
        sh.Delete
    Next
    End Sub
    


    Voilà