Discussion :

[achille30]

Bonjour à tous !!

Alors je reviens parmi vous avec cette fameuse erreur sur VB 6.
cette erreur survient au moment de créer une instance d'une classe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set clsE = CreateObject ("CrptStat")

Cet erreur survient tant sur Windows 2000 que sur Seven (les 2 systèmes où j'ai effectué les tests étant sur deux machines différentes.)

j'ai bel et bien la référence Microsoft Scripting Runtime qui est cochée dans les références du projet

Pourrait t-on me rediriger vers une solution qui marche vraiment ?
ou alors devrais je abandonner le CreateObject et me rabattre vers autre chose d’efficace ?

Merci d'avance

[DarkVader]

Bonjour,

Bonjour à tous !!

Alors je reviens parmi vous avec cette fameuse erreur sur VB 6.
cette erreur survient au moment de créer une instance d'une classe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set clsE = CreateObject ("CrptStat")

Cet erreur survient tant sur Windows 2000 que sur Seven (les 2 systèmes où j'ai effectué les tests étant sur deux machines différentes.)

j'ai bel et bien la référence Microsoft Scripting Runtime qui est cochée dans les références du projet

Pourrait t-on me rediriger vers une solution qui marche vraiment ?

CreateObject ("CrptStat") !!!
Si tu avais lu l'aide ou les tutoriels tu aurais constaté très vite que la syntaxe pour appeler CreateObject est
CreateObject("nom_Librairie.nom_classe") ou plus généralement son progid
Donc pour le filesystemobject
CreateObject("Scripting.FileSystemObject")

ou alors devrais je abandonner le CreateObject et me rabattre vers autre chose d’efficace ?

Efficace ???

[achille30]

Bonjour,
CreateObject ("CrptStat") !!!
Si tu avais lu l'aide ou les tutoriels tu aurais constaté très vite que la syntaxe pour appeler CreateObject est
CreateObject("nom_Librairie.nom_classe") ou plus généralement son progid
Donc pour le filesystemobject
CreateObject("Scripting.FileSystemObject")

Merci DarkVader
alors j'ai essayé d'aller dans le même sens d'idée que celui que tu préconises,
et au lieu du simple appel CreateObject("crptEtat"), j'ai fait l'appel de la classe
en précisant le nom du projet auquel appartient la classe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim clsE as Object
set clsE = CreateObejct("VENTE.CrptStat")

l'erreur demeure le même !! Comment le résoudre ? y a t-il erreur de syntaxe ?

[DarkVader]

Exprime toi clairement si tu veux avoir une chance qu'on te réponde.

[l_autodidacte]

Les classes utilisables sont celles inscrites dans le registre Windows et pas celles qu'on veut à tout prix utiliser même si elles ne sont pas valides.

Si la classe "CrptStat" est valide, elle devrait être inscrite dans le registre.
Je te suggère de faire la recherche de ".CrptStat" dans le registre et si tu la trouves sous la clé ProgID, tu peux copier tout ce qui se trouve sous la valeur (Default) ou (par défaut) pour l'utiliser dans ton code.

[achille30]

Exprime toi clairement si tu veux avoir une chance qu'on te réponde.

ok; voila j'ai une dll qui a été écrite et compilée et également reférencée
dans mon projet principal;
au moment d'exécuter mon projet principal, j'ai une erreur qui se produit
"Erreur 429 - Le composant ActiveX ne peut créer l'objet"
en faisant une exécution pas-à-pas, je me rends compte que l'erreur provient
d'un bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim clsE as Object
set clsE = CreateObejct("VENTE.CrptStat")

VENTE étant la DLL crée, et CrptStat étant une classe de la DLL

Voila je ne sais pas si j'ai été assez précis la

[achille30]

Les classes utilisables sont celles inscrites dans le registre Windows et pas celles qu'on veut à tout prix utiliser même si elles ne sont pas valides.

Si la classe "CrptStat" est valide, elle devrait être inscrite dans le registre.
Je te suggère de faire la recherche de ".CrptStat" dans le registre et si tu la trouves sous la clé ProgID, tu peux copier tout ce qui se trouve sous la valeur (Default) ou (par défaut) pour l'utiliser dans ton code.

Merci bien je teste et je vous rends compte !!

[Mat.M]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim clsE as Object
set clsE = CreateObejct("VENTE.CrptStat")

VENTE étant la DLL crée, et CrptStat étant une classe de la DLL

Voila je ne sais pas si j'ai été assez précis la

pourquoi ne pas faire simplement CreateObject("Vente")?
Sinon faut appuyer sur F2 tu as l'inspecteur d'objet avec les objets référencés , tu verras s'il indique la méthode CrptStat de l'objet Vente