Résolu code VBA Générer UN QRCODE

fhoest

XLDnaute Accro
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+
 
Dernière édition:

ChTi160

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

XLDnaute Accro
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...
 

dysorthographie

XLDnaute Occasionnel
Bonjour,
VB:
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

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

patricktoulon

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

VB:
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
 
Dernière édition:

dysorthographie

XLDnaute Occasionnel
Bonsoir Patrick,
VB:
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
 

Rhysand

XLDnaute Junior
Bonjour à tous,

avez-vous réussi à installer le ocx et à créer le QR Code?

voir si cela peut vous aider

Ce n'est pas moi qui ai créé cette solution, et dans le fichier Excel se trouvent les noms de ses auteurs

Je viens d'ajouter un bouton de commande sur la feuille Excel et comment changer les données, les informations sont dans la macro du bouton de commande
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas