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 ?
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
-
ContributeurBonjour,
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à