code VBA Générer UN QRCODE

[yohan60]

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.

 

[yohan60]

Autre vidéo
j'essaie de mettre manuellement un Object CodeBarre dans la Feuille .
Voir le Nom du Control dans la barre des formules "

jean marie

bjr,

j'ai la même chose

 

[patricktoulon]

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

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

 

[ChTi160]

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]

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+

 

[Modeste geedee]

Bonsour®

J'espère que c'est la solution car je n'ai pas d'explication.
A+

voir également ce lien :

Connexion : comptes Google

 

[fhoest]

Bonsoir,
il faut vérifier dans Fichier/Options/Centre de gestion de la confidentialité/ paramètres de gestion de confidentialité l'état de paramètre ActiveX
chez moi il est sur m'avertir avant d'activer tous les contrôles dotés de restrictions minimales.
le lien suivant peut être utile aussi:
https://www.activebarcode.com/howto/excel_vba.html
A+

 

[ChTi160]

arff
les Chti sont vraiment sympa Lol
merci
pour ce qui est du Control , j'ai le 14.00
a quoi correspondent les deux .Ocx du .zip ?
jean marie

 

[fhoest]

oups nous nous sommes croisé je viens de mettre à jour le message précédent.
Les chti oui sont sympa et les autres aussi ! Hein les biloutes...

 

[ChTi160]

Re
j'ai pu utiliser ActiveCodeBarre
merci
jean marie

 

[dysorthographie]

Bonjour,

Public Function DownloadHTTP(ByVal URL As String, ByVal Destination As String) As Boolean
   On Error GoTo catch
   Dim oWinHTTP As Object
   Dim fic As Integer
   Dim buffer() As Byte

   Set oWinHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
   oWinHTTP.Open "GET", URL, False
   oWinHTTP.send

   If oWinHTTP.Status = 200 Then
      fic = FreeFile
      Open Destination For Binary Lock Read Write As #fic
      buffer = oWinHTTP.ResponseBody
      Put #fic, , buffer

      Close #fic
      DownloadHTTP = True
   Else
      MsgBox "Statut retourné par le service : " & oWinHTTP.Status & vbCrLf & _
             "Description : " & oWinHTTP.StatusText, vbExclamation, "DownloadHTTP()..."
   End If

finally:
   Erase buffer
   Set oWinHTTP = Nothing
   Exit Function
catch:
   MsgBox "Erreur n°" & Err.Number & vbCrLf & "Description : " & Err.Description, vbExclamation, "DownloadHTTP()..."
   Close   'ferme tous les descripteurs ouverts
  Resume finally
End Function

Sub Test()
Debug.Print DownloadHTTP("http://qrickit.com/api/qr?d=Créer dynamiquement des QR Codes en image...&addtext=Test&txtcolor=fb660a&fgdcolor=fb660a&bgdcolor=000000&qrsize=300&t=p&e=m", ThisWorkbook.Path & "\QRCode.png")

End Sub

 

[ChTi160]

Bonsoir dysorthographie
Bonsoir le Fil,le Forum
Je suis perdu lol
Peux tu me dire comment on utilise ta procédure?
Excuses
jean marie

 

[dysorthographie]

Si tu prends la plaine de regarder la SUB Test()

 

[ChTi160]

Re
Merci !
Bonne fin de soirée
Jean marie

 

[patricktoulon]

salut robert
c'est pas bon !!!! désolé meme en changeant de mot le qrcode reste le même

Sub Test()
    mots = Array("ChTi160", "Dyshortographie", "patricktoulon")
    For i = 0 To UBound(mots)
        chemin = Environ("userprofile") & "\DeskTop\" & mots(i) & "QRCode.png"
        Debug.Print DownloadHTTP("http://qrickit.com/api/qr?d=Créer dynamiquement des QR Codes en image...&addtext=" & mots(i) & "&txtcolor=fb660a&fgdcolor=fb660a&bgdcolor=000000&qrsize=300&t=p&e=m", chemin)
        Debug.Print "http://qrickit.com/api/qr?d=Créer dynamiquement des QR Codes en image...&addtext=" & mots(i) & "&txtcolor=fb660a&fgdcolor=fb660a&bgdcolor=000000&qrsize=300&t=p&e=m", chemin
    Next
End Sub

comparer les 3 images après se sont les mêmes

 

[dysorthographie]

Bonsoir Patrick,

Sub Test()
    mots = Array("ChTi160", "Dyshortographie", "patricktoulon")
    For i = 0 To UBound(mots)
        chemin = Environ("userprofile") & "\DeskTop\" & mots(i) & ".png"
        Debug.Print DownloadHTTP("http://qrickit.com/api/qr?d=" & mots(i) & "&addtext=" & mots(i) & "&txtcolor=fb660a&fgdcolor=fb660a&bgdcolor=000000&qrsize=300&t=p&e=m", chemin)
        Debug.Print "http://qrickit.com/api/qr?d=Créer dynamiquement des QR Codes en image...&addtext=" & mots(i) & "&txtcolor=fb660a&fgdcolor=fb660a&bgdcolor=000000&qrsize=300&t=p&e=m", chemin
    Next
End Sub