OVH Cloud OVH Cloud

Enregistrement d''un OCX en VBA

5 réponses
Avatar
Jerome
Bonjour

J'ai acheté un OCX et je dispose donc du N° de série correspondant . J'ai
dans une barre d'outil ajouté un bouton qui permet d'insérer le contrôle
dans une page Word.
Le problème est que systématiquement la fenêtre d'évaluation de l'OCX est
affichée.

D'où ma question, comment passer en VBA le N° de série de l'OCX pour qu'il
ne m'affiche pas cet écran d'évaluation :

L'éditeur de cet OCX m'a suggéré de mettre en début de projet le code
suivant (Il n'a jamais testé sous VBA et n'envisage pas de le faire !! ) :


Dim sLicense As String

sLicense = "Nom du Control" & vbCrLf
sLicense = sLicense & "Copyright (c) 1997-2002 Inc"
sLicense = sLicense & vbCrLf & "License number: xxxx xxxx xxxx xxxx"

Licenses.Add "NomControl", sLicense


Quand j'intègre cela dans mon projet, j'ai une erreur VBA car il ne connait
pas l'objet Licenses (qui est dispo en VB mais a priori pas en VBA)

Je vous remercie pour vos conseils parce que là je bloque depuis quelques
jours. Merci à tous

Jerome

5 réponses

Avatar
Anacoluthe
Bonjour !

'Jerome' nous a écrit ...
Licenses.Add "NomControl", sLicense
Quand j'intègre cela dans mon projet, j'ai une erreur VBA car il ne connait
pas l'objet Licenses (qui est dispo en VB mais a priori pas en VBA)


En principe l'OCX doit être enregistré et licencié avant
S'il faut passer par VB, référencez VB Objects dans VBA

Anacoluthe
« Et jamais on n'a vu la timide innocence
Passer subitement à l'extrême licence. »
- Jean RACINE

Avatar
Geo
Bonjour Jerome

Le seul truc que j'aie trouvé qui tienne un peu la route c'est :
http://support.microsoft.com/?scid=kb;fr;188577
http://support.microsoft.com/?scid=kb;fr;241126
mais surtout :

http://support.microsoft.com/?scid=kb;fr;190670

il faudrait disposer de VBControlExtender ?

mais je ne l'ai pas trouvé :-(

--
A+
Avatar
Clément Marcotte
BOnjour,

Ce n'est pas un éditeur que tu as c'est un édamateur connement stupide
et stupidement con. C'est à lui de programmer l'ocx comme du monde et
à fournir un programme d'installation qui ne va pas emmerder les gens
qui se donnent la peine de payer pour acheter sa merde.

C'est mon point de vue et je le partage.




"Jerome" <jerome.juhel@~nospam.scoqi.com> a écrit dans le message de
news:c7iaml$6j3$
Bonjour

J'ai acheté un OCX et je dispose donc du N° de série correspondant .
J'ai

dans une barre d'outil ajouté un bouton qui permet d'insérer le
contrôle

dans une page Word.
Le problème est que systématiquement la fenêtre d'évaluation de
l'OCX est

affichée.

D'où ma question, comment passer en VBA le N° de série de l'OCX
pour qu'il

ne m'affiche pas cet écran d'évaluation :

L'éditeur de cet OCX m'a suggéré de mettre en début de projet le
code

suivant (Il n'a jamais testé sous VBA et n'envisage pas de le faire
!! ) :



Dim sLicense As String

sLicense = "Nom du Control" & vbCrLf
sLicense = sLicense & "Copyright (c) 1997-2002 Inc"
sLicense = sLicense & vbCrLf & "License number: xxxx xxxx xxxx
xxxx"


Licenses.Add "NomControl", sLicense


Quand j'intègre cela dans mon projet, j'ai une erreur VBA car il ne
connait

pas l'objet Licenses (qui est dispo en VB mais a priori pas en
VBA)


Je vous remercie pour vos conseils parce que là je bloque depuis
quelques

jours. Merci à tous

Jerome




Avatar
Clément Marcotte
Tu devrais nous dire c'est qui ce tarla là, pour que personne d'autre
ne soit sa victime. Tu devrais même déposer une plainte pour fraude
contre lui.

"Jerome" <jerome.juhel@~nospam.scoqi.com> a écrit dans le message de
news:c7iaml$6j3$
Bonjour

J'ai acheté un OCX et je dispose donc du N° de série correspondant .
J'ai

dans une barre d'outil ajouté un bouton qui permet d'insérer le
contrôle

dans une page Word.
Le problème est que systématiquement la fenêtre d'évaluation de
l'OCX est

affichée.

D'où ma question, comment passer en VBA le N° de série de l'OCX
pour qu'il

ne m'affiche pas cet écran d'évaluation :

L'éditeur de cet OCX m'a suggéré de mettre en début de projet le
code

suivant (Il n'a jamais testé sous VBA et n'envisage pas de le faire
!! ) :



Dim sLicense As String

sLicense = "Nom du Control" & vbCrLf
sLicense = sLicense & "Copyright (c) 1997-2002 Inc"
sLicense = sLicense & vbCrLf & "License number: xxxx xxxx xxxx
xxxx"


Licenses.Add "NomControl", sLicense


Quand j'intègre cela dans mon projet, j'ai une erreur VBA car il ne
connait

pas l'objet Licenses (qui est dispo en VB mais a priori pas en
VBA)


Je vous remercie pour vos conseils parce que là je bloque depuis
quelques

jours. Merci à tous

Jerome




Avatar
Jerome
Bonjour et merci pour votre réponse
(désolé pour le retard)

J'ai regardé votre suggestions mais j'avoue ne pas voir comment m'y prendre.
Cela signifie-t-il de créer un EXE en VB incluant l'OCX + la licence et que
mes macros VBA appelent les fonctions de cet OCX directement en communiquant
avec cet EXE ?

Si vous avez quelques explications complémentaires pour m'éclairer je suis
preneur.

Merci en tout cas pour votre aide

Jerome


"Anacoluthe" a écrit dans le message de
news:
Bonjour !

'Jerome' nous a écrit ...
Licenses.Add "NomControl", sLicense
Quand j'intègre cela dans mon projet, j'ai une erreur VBA car il ne
connait


pas l'objet Licenses (qui est dispo en VB mais a priori pas en VBA)


En principe l'OCX doit être enregistré et licencié avant
S'il faut passer par VB, référencez VB Objects dans VBA

Anacoluthe
« Et jamais on n'a vu la timide innocence
Passer subitement à l'extrême licence. »
- Jean RACINE