Connexion DCOM

Salut le forum, bonne journée à tous,

J'ai un souci de connexion entre un client et un serveur utilisant la technologie DCOM sous Excel.

Le code est le suivant:
"
Public Add1 As OPERATIONSLib.OP

Sub Bouton1_QuandClic()

Dim nFirstNum As Long, nSecondNum As Long
Set Add1 = CreateObject("Operations.OP", "NomDuServeur")

nFirstNum = Cells(3, 1).Value
nSecondNum = Cells(3, 2).Value

Add1.SetFirstNumber (nFirstNum)
Add1.SetSecondNumber (nSecondNum)
Dim nSum As Long
nSum = Add1.DoTheAddition()
Cells(7, 2).Value = nSum

End Sub
"
Ce programme représente la partie client de l'application. Il fait une simple addition en appelant les fonctions de l'Objet DCOM nommé OP.

La ligne "Set Add1 = CreateObject ("Operations.OP", "NomDuServeur") "
me renvoi un message d'erreur suivant quand j'essai de me connecter au serveur:

"Erreur d'exécution '13'
Incompatibilité de type"

Si vous connaissez l'origine de cette erreur, je serais intéressé de la connaître.

Merci d'avance
Jérome

Salut.

Je te conseille de déclarer ta variable OPERATIONSLib.OP en tant qu'objet simple.

Ce qui donnerais :

Public Add1 As Object

La raison de l'erreur, à mon avis, est que tu déclare une variable de type OPERATIONSLib.OP sans avoir inclus de référence directe vers le composant par l'ajour de référence.

J'espère que ça règlera ton problème.
Jean-Francis.


-------------------------------
Réponse au message :
-------------------------------

> Salut le forum, bonne journée à tous,
>
> J'ai un souci de connexion entre un client et un serveur utilisant la technologie DCOM sous Excel.
>
> Le code est le suivant:
> "
> Public Add1 As OPERATIONSLib.OP
>
> Sub Bouton1_QuandClic()
>
> Dim nFirstNum As Long, nSecondNum As Long
> Set Add1 = CreateObject("Operations.OP", "NomDuServeur")
>
> nFirstNum = Cells(3, 1).Value
> nSecondNum = Cells(3, 2).Value
>
> Add1.SetFirstNumber (nFirstNum)
> Add1.SetSecondNumber (nSecondNum)
> Dim nSum As Long
> nSum = Add1.DoTheAddition()
> Cells(7, 2).Value = nSum
>
> End Sub
> "
> Ce programme représente la partie client de l'application. Il fait une simple addition en appelant les fonctions de l'Objet DCOM nommé OP.
>
> La ligne "Set Add1 = CreateObject ("Operations.OP", "NomDuServeur") "
> me renvoi un message d'erreur suivant quand j'essai de me connecter au serveur:
>
> "Erreur d'exécution '13'
> Incompatibilité de type"
>
> Si vous connaissez l'origine de cette erreur, je serais intéressé de la connaître.
>
> Merci d'avance
> Jérome
>
>

Merci pour tes explications mais malheureusement j'ai déjà ajouter la librairie qu'il fallait dans les références...
D'autre part quand je déclare Public Add1 As Object, les méthodes et fonctions de l'objet sont invisibles.
Jerome



-------------------------------
Réponse au message :
-------------------------------

>
> Salut.
>
> Je te conseille de déclarer ta variable OPERATIONSLib.OP en tant qu'objet simple.
>
> Ce qui donnerais :
>
> Public Add1 As Object
>
> La raison de l'erreur, à mon avis, est que tu déclare une variable de type OPERATIONSLib.OP sans avoir inclus de référence directe vers le composant par l'ajour de référence.
>
> J'espère que ça règlera ton problème.
> Jean-Francis.
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Salut le forum, bonne journée à tous,
> >
> > J'ai un souci de connexion entre un client et un serveur utilisant la technologie DCOM sous Excel.
> >
> > Le code est le suivant:
> > "
> > Public Add1 As OPERATIONSLib.OP
> >
> > Sub Bouton1_QuandClic()
> >
> > Dim nFirstNum As Long, nSecondNum As Long
> > Set Add1 = CreateObject("Operations.OP", "NomDuServeur")
> >
> > nFirstNum = Cells(3, 1).Value
> > nSecondNum = Cells(3, 2).Value
> >
> > Add1.SetFirstNumber (nFirstNum)
> > Add1.SetSecondNumber (nSecondNum)
> > Dim nSum As Long
> > nSum = Add1.DoTheAddition()
> > Cells(7, 2).Value = nSum
> >
> > End Sub
> > "
> > Ce programme représente la partie client de l'application. Il fait une simple addition en appelant les fonctions de l'Objet DCOM nommé OP.
> >
> > La ligne "Set Add1 = CreateObject ("Operations.OP", "NomDuServeur") "
> > me renvoi un message d'erreur suivant quand j'essai de me connecter au serveur:
> >
> > "Erreur d'exécution '13'
> > Incompatibilité de type"
> >
> > Si vous connaissez l'origine de cette erreur, je serais intéressé de la connaître.
> >
> > Merci d'avance
> > Jérome
> >
> >
>

Bonjour a tous,
bien que vos message soit ancien, pourriez vous me dire ou je peux une solution car pour ma part j'ai fait tous ce qui est dit mais le client ne voit pas la DLL sur le serveur.
De plus j'ai une erreur lorsque je lance le Setup créé par l'assistant d'empaquetage si je ne met pas le nom du poste serveur.
L'erreur est de la part de clireg32.exe : "Erreur d'enregistrement"
Laconique n'est ce pas!!
Je n'est plus ce message si lors de la creation du setup avec l'asssitant d'empaquetage je donne le nom du poste serveur.
J'y comprend plus rien et je vais craquer.

Merci à tous pour votre aide (surtout qu'il qq années je l'ai fait pour une tres grosses appli et que j'avais eu les memes prob... et j'ai oublié.



La theorie, c'est expliquer mais rien ne fonctionne.
La pratique, c'est faire fonctionner sans savoir pourquoi.
(d'apres Albert Einstein)