XL 2021 Kutools QR Code VBA

Lionel69890

XLDnaute Junior
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

XLDnaute Barbatruc
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..... :oops:
Et c'est surement pour cela que tu n'as pas eu de réponse....
 

Membres actuellement en ligne

Statistiques des forums

Discussions
313 322
Messages
2 097 141
Membres
106 850
dernier inscrit
benbeckman