Excel, Erreur 438

[Agon_]

Bonjour à tous,
je travail sur une feuille de calcule Excel 2010.
Je me connecte dans cette feuille de calcule à un web-service en soap.
La connection au WS se passe normalement.
Cependant sur le morceau de code suivant j'ai une erreur 438 (sur la ligne 22).

Voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public Function Existe_dans_ba(nom_voie As String) As String
 
'gestion d'un cas d'erreur
On Error GoTo fin
 
Dim xmlDoc As New DOMDocument
Dim xmlNode As IXMLDOMNode
Dim oNodeList As IXMLDOMNodeList
 
Dim i As Integer
Dim type_voie As String
 
Dim existe As Boolean
Dim TYPE_VOIE_BA, nom_voie_ba As String
Dim VOIE_BA, VOIE_BA_def As String
 
 
Dim repXML As String
 
existe = False
'Mon WS me renvoi un string
repXML = soapclientV.getVoie("", "", "", nom_voie, "")
 
'j'exploite ensuite la réponses.
 
'cas d'erreur
fin:
    Existe_dans_ba = ""
    If Err.Number <> 0 Then MsgBox "Error " & Err.Number & ": " & Err.Description
    End Function

Précision
l'objet soapclientV est déclaré dans un autre module sous la forme :

Code :

Public soapclientV As SoapClient30

Ce morceau de code tourne sur Excel 2003 sans soucis
Si vous avez une réponse/idée ou un tuto à me montrer je suis preneur

[Mat.M]

Salut est-ce qu'il y a la ligne de code ?

Code :

1
2
3
 
Public soapclientV As SoapClient30
soapclientV=new SoapClient30

Sans new l'objet n'est pas instancié et on ne peut pas accéder aux méthodes