Microsoft 365 code VBA Générer UN QRCODE

yohan60

XLDnaute Nouveau
Bonjour à tous,

je souhaiterais générer via un bouton un qrcode depuis les informations (nom, prénom, société etc) d'un tableau excel via un code VBA, Puis une fois le qrcode générer et imprimer sur un support style (badge, téléphone) scanner ce support, et réinsérer de manière automatique dans un autre tableaux, le 1er tableau servirais de base de données.

quelqu'un peux me dire si cela est possible.
j'espère avoir été simple et claire.
a bientôt.
 

fhoest

XLDnaute Accro
Bonjour,
normalement ça fonctionne, est ce que l'ocx a été installé ?
comme dans le lien de Rhysand
1602697737588.png

Ensuite on peut mettre le code aussi comme cela:
Code:
Sub setQR()
'Updated by Extendoffice 2018/8/22
    Dim xSRg As Range, xSRg1 As Range
    Dim xRRg As Range
    Dim xObjOLE As OLEObject
    On Error Resume Next
    Set xSRg = Application.InputBox("Please select the cell you will create QR code based on Firstname", "Kutools for Excel", , , , , , 8)
    Set xSRg1 = Application.InputBox("Please select the cell you will create QR code based on Name", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing And xSRg1 Is Nothing Then Exit Sub
    Set xRRg = Application.InputBox("Select a cell to place the QR code", "Kutools for Excel", , , , , , 8)
    If xRRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
    xObjOLE.Object.Style = 11
    xObjOLE.Object.Value = "Firstname " & xSRg.Text & vbCrLf & "Name " & xSRg1.Text
    ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
    ActiveSheet.Paste xRRg
    xObjOLE.Delete
    Application.ScreenUpdating = True
End Sub
Je n'invente rien tout est dans l'exemple du lien.
A bientôt.
 

ChTi160

XLDnaute Barbatruc
Bonsoir le Fil
j'ai installé les Ocx
mais rien pas de QR Code si on enlève le On Error il me met Erreur 400
Aller LENS
lol
jean marie
 

fhoest

XLDnaute Accro
Bonsoir,
@ChTi160, l'application Excel a t elle été fermé au préalable ! et exécuté en Mode Admin ?
si oui , je n'ai pas d'idée chez moi ça fonctionne, sauf peut être de supporter la bonne équipe et hop le code bar fonctionne lol...
que le meilleur gagne, mais ça fait plaisir de revoir Lens en Ligue 1.
A bientôt.
 

yohan60

XLDnaute Nouveau
Bonjour,
normalement ça fonctionne, est ce que l'ocx a été installé ?
comme dans le lien de Rhysand
Voir la pièce jointe 1081544

Ensuite on peut mettre le code aussi comme cela:
Code:
Sub setQR()
'Updated by Extendoffice 2018/8/22
    Dim xSRg As Range, xSRg1 As Range
    Dim xRRg As Range
    Dim xObjOLE As OLEObject
    On Error Resume Next
    Set xSRg = Application.InputBox("Please select the cell you will create QR code based on Firstname", "Kutools for Excel", , , , , , 8)
    Set xSRg1 = Application.InputBox("Please select the cell you will create QR code based on Name", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing And xSRg1 Is Nothing Then Exit Sub
    Set xRRg = Application.InputBox("Select a cell to place the QR code", "Kutools for Excel", , , , , , 8)
    If xRRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
    xObjOLE.Object.Style = 11
    xObjOLE.Object.Value = "Firstname " & xSRg.Text & vbCrLf & "Name " & xSRg1.Text
    ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
    ActiveSheet.Paste xRRg
    xObjOLE.Delete
    Application.ScreenUpdating = True
End Sub
Je n'invente rien tout est dans l'exemple du lien.
A bientôt.
bsr, je n'arrivent pas à installer les OCX, Comment ont fait svp.je suis pas un expert
 

Fichiers joints

ChTi160

XLDnaute Barbatruc
Bonjour !
Bon j'avance "Impossible d'insérer un Object " Lol (sans On Error )
et je fais quoi ? Lol
ou alors ca me copie la procédure dans la cellule cible.
Aller Lille!
jean marie
 

Fichiers joints

Dernière édition:

fhoest

XLDnaute Accro
Bonjour,
Ca avance.
Est ce que le contrôle apparaît dans la liste des objets.:)
Si oui je propose de faire un test sans le code d'insertion de ce dernier, puis ensuite recommencer avec le code.
Je vais continuer à chercher de mon côté.
Mais ça vient bon car je vois "Allez Lille".
A+
 

patricktoulon

XLDnaute Barbatruc
bonjour
perso j'ai suivi a la lettre et quand je veux enregistrer le controls perso Windows me le refuse
que ce soit pour le 64 ou le 32
demo6.gif

j'ai essayer de l'enregistrer avec cmd en administrator aussi et pareil
 

ChTi160

XLDnaute Barbatruc
Bonjour Patrick yohan60
Moi j'ai mis les Ocx directement dans systemxx
J'ai donc le control mais pas possibilité de l'utiliser lol
Le nom a t'il une importance #15 ?
Merci
Jean marie
 

fhoest

XLDnaute Accro
Bonjour à tous.
Je dois avoir un petit peu de chance.
Pour info après le téléchargement j'ai laissé le chemin par défaut et juste dézipper.
Ensuite j'ai installé l ocx.
J'espère que c'est la solution car je n'ai pas d'explication.
A+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas