XL 2021 Kutools QR Code VBA

[Lionel69890]

Bonjour à tous,

Je cherche à créer des QR code à partir de valeurs text. J'ai installé Kutools qui permet de le faire manuellement via ces différentes fonctions cependant je voudrai m'en servir en VBA. Ni connaissant pas grand chose j'ai récupéré ce code, qui est sensé créer un Qr code en B1 à partir de la cellule A1 mais cela ne fonctionne pas....
J'ai portant bien cocher les références KutoolsForExcel. Quelqu'un pourrait-il m'aider. Un grand merci d'avance 🙂

Sub AfficherQRCode()

'Assurez-vous que Kutools est installé et activé

If Not Application.IsAddInLoaded("Kutools.Excel") Then
MsgBox "Kutools for Excel n'est pas installé ou activé.", vbCritical
Exit Sub
End If

'Récupérer les valeurs des cellules
valeurA1 = Range("A1").Value

'Définir la taille du QR code
tailleQRCode = 80

'Insérer le QR code dans la cellule B1
With Range("B1")
.ClearContents
.QRcode _
valeurA1, _
False, _
tailleQRCode, _
xlQRCodeModel2
End With

End Sub

 

[Phil69970]

Bonjour voisin

Tu as installé un complément plus ou moins exotique il n'y aura pas grand monde pour te répondre ici car pour faire un test il faut :

'Assurez-vous que Kutools est installé et activé

En tout cas perso je n'installe aucun complément pour faire un test sur mon PC..... 😳
Et c'est surement pour cela que tu n'as pas eu de réponse....

 

[Backhandshot]

Bonsoir à tous!
@Lionel69890 , un complément que tu peux installer QR4Office
Fais une recherche sur le net tu trouveras ton bonheur comment l'installer il y a de bons tutoriels et ça fonctionne
Bonne soirée !