[Catégorie modifiée VB6 - VBA] Message d'erreur VBA excel 2010

Question

Bien le bonjour à toutes et à tous!

Déjà j'espère avoir poster mon message au bon endroit, désolé si mon message n'est pas dans le bon thème.

Contexte:
Je cherche à créer un code bar du type QR en fonction d'une valeur donnée dans une cellule. Le but est d'avoir juste à flasher le code QR pour arriver sur la fiche compta d'un client.


J'ai suivi ce petit tuto :

http://www.youtube.com/watch?v=mzRn0XDF9Bg

J'ai donc créer mon bouton et entré le code suivant : 

    Dim sh As Shape
    Dim ss As StrokeScribe
    
    For i = 1 To 3 'enumerate first 3 cells
        ss_top = Application.CentimetersToPoints(1.5)
        ss_width = Application.CentimetersToPoints(1.5) '15x15mm QR Code image
        ss_height = Application.CentimetersToPoints(1.5)
    
    	'place the barcode object on Excel worksheet
        Set sh = ActiveSheet.Shapes.AddOLEObject _
            (ClassType:="STROKESCRIBE.StrokeScribeCtrl.1", _
            Left:=i * ss_width, Top:=ss_top, Width:=ss_width, Height:=ss_height)

        Set ss = sh.OLEFormat.Object.Object
        ss.Alphabet = QRCODE
        ss.QrECL = M  'set error correction level
    
        Dim data As String 'This is desirable because Excel could pass all-numeric strings
                       'as floating point values, which may have unwanted formatting in the barcode.
        data = ActiveSheet.Cells(i, 1)
        ss.Text = data 'Enumerates Excel cells: A1, A2, A3
    Next i


Au besoin le code est disponible ici (c'est le troisième) :
http://strokescribe.com/en/qr-code.html


Le problème

Lorsque je quitte le mode création et que je clique sur le bouton j'ai le message suivant qui apparait :

"Erreur de compilation :
Type défini par l'utilisateur non défini"


j'ai fait un screen : 

http://imageshack.us/photo/my-images/208/bugexcel.png/


Savez-vous d'où peut venir l'erreur, j'ai googliser mais rien de concluent car je n'ai aucune connaissance du language VBA.
Ou de n'importe quel langage informatique...


Honte à moi!

Bonne soiré a vous!

Martin

slpped · Answer

Désolé d'avoir ouvert trois fois le même sujet, mozilla affichait un message d'erreur lors de l'envoi du message..

Si quelqu'un veut bien m'expliquer la démarche pour supprimer les autres topics, je suis preneur!

Encore désolé...

slpped · Answer

Bonjour,

Réponse trouvé, il est possible de clore le sujet!

cs_Jack · Answer

Salut

"Réponse trouvé"

Comme il s'agit d'un forum d'entraide et que toute information pourra servir aux autres, il serait aimable et bienvenu de partagé la solution.

PS : Le VB de Office est du VBA, pas du VB6 (catégorie modifiée)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

[Catégorie modifiée VB6 -> VBA] Message d'erreur VBA excel 2010

3 réponses

Votre réponse

Discussions similaires