Insérer QR code sur facture
Bonjour,
Je souhaite intégrer un QR code sur mes factures. J’ai trouvé une partie de code qui fait une partie du job. Mais cela passe à chaque fois par une InputBox pour noter la cellule du contenu du QR code et un seconde inputBox pour la destination du QR code.
Il s’agit, dans mon cas, à chaque fois de la même cellule (Ex : A1 = contenu du QR Code et A2 = Destination du QR code).
J’ai donc tenté de bidouiller le code, mais cela ne marche pas.
Sub setQR2()
Dim xSRg As Range
Dim xRRg As Range
Dim xObjOLE As OLEObject
On Error Resume Next
Set xSRg = Range("A1").Value
Set xRRg = Range("A2").Select
Application.ScreenUpdating = False
Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
xObjOLE.Object.Style = 11
xObjOLE.Object.Value = xSRg.Text
ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
ActiveSheet.Paste xRRg
xObjOLE.Delete
Application.ScreenUpdating = True
End Sub
Désolé pour mon niveau très bas en VBA et un tout grand merci si vous pouvez m'aider.
Bonsoir Vdl,
Il ne faut pas seulement inscrire un code dans la partie Editeur VBA.
Il faut aussi disposer de l'OLEobject nécessaire. Car tous ne sont pas disponibles et parfois il faut les télécharger.
Voir sur ce lien pour plus d'explications. Suivre
Rappel de la procédure
Bonjour X Cellus,
Un tout grand merci de votre retour. J'ai voulu faire court dans ma demande pour aller l'ensentiel, mais oui il faut et j'ai déléchargé l'OLEobject necéssaire comme vous l'expliqué. Le code initial fonctionne à merveil. Ce que je souhaite c'est de ne pas passer par inputBox car les cellules sont connues (A1 = contenu du QR Code et A2 = Destination du QR code). J'ai essayé de modifier le code, mais je n'y arrive pas.