B
BRUN
Guest
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
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