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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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