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