Précédent   Forum du club des développeurs et IT Pro > Logiciels > Microsoft Office > Général VBA
Général VBA Forum général VBA . Pour les logiciels spécifiques (Access, Excel, Word, ...), postez dans les bons sous forums.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse
 
Outils de la discussion
Publicité
'
Vieux 23/08/2012, 11h58   #1
Oliv'67
Invité de passage
 
Olivier MAMDY
Inscription : avril 2010
Messages : 6
Détails du profil
Informations personnelles :
Nom : Olivier MAMDY

Informations forums :
Inscription : avril 2010
Messages : 6
Points : 3
Points : 3
Par défaut VBA et Web services

Bonjour
J'ai essayé de me connecter à un webservice de mon entreprise et j'obtiens ce message Objet Requis erreur d'exécution 424

Voici mon code ... auriez vous une idée du pb ? Merci
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Public Function MesServices() 
Dim strArray() As String
Dim sp As Object
Dim objXmlDoc As New DOMDocument
Dim objNList As IXMLDOMNodeList
Dim objTableNodes As IXMLDOMNodeList
Dim objDataNode As IXMLDOMNode
Dim RowCount As Integer
Dim PoleMail
 
'Connexion au Service Web
Set sp = CreateObject("MSSOAP.SoapClient30")
 
sp.MSSoapInit "http://ptth/webservices/cg67.astrerh.webservices/public/wsstructures.asmx?wsdl", "WsStructures", "WsStructuresSoap"
'Appel de la méthode du Service Web
 
Set objNList = sp.GetPoles
 
'Chargement des informations
objXmlDoc.LoadXml objNList(0).xml
Set objTableNodes = objXmlDoc.getElementsByTagName("Pole")
    If Not objTableNodes Is Nothing Then
        RowCount = objTableNodes.Length 'Compte le nombre Noeuds/Lignes
        ReDim strArray(RowCount) 'Redim le tableau en fonction du nombre de poles
 
        'Parcours tous les Noeuds
        For i = 0 To RowCount - 1
            Set objDataNode = objTableNodes(i)
 
              On Error Resume Next
              'Ajout l'adresse mail dans le table
              PoleMail = objDataNode.SelectSingleNode("Email").Text
              Debug.Print PoleMail
              If (Len(PoleMail) <> 0) Then
                    strArray(i) = cutMail(PoleMail)
               End If
 
         Next i
 
 
    Else
            MsgBox ("Le ficher ne contient pas d'information."), vbInformation
            Exit Function
 
    End If
'retourne un tableau avec la liste de tous les pôles d'un service
MesServices= strArray
 
 
End Function
Oliv'67 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 24/08/2012, 09h43   #2
Garuda
Membre Expert
 
Avatar de Garuda
 
Homme Philippe CHIRCOP
Chef de projet
Inscription : juin 2007
Messages : 1 216
Détails du profil
Informations personnelles :
Nom : Homme Philippe CHIRCOP
Localisation : France

Informations professionnelles :
Activité : Chef de projet
Secteur : Bâtiment

Informations forums :
Inscription : juin 2007
Messages : 1 216
Points : 1 837
Points : 1 837
A quelle ligne, l'erreur ????
__________________
Garuda गरूड
Brahmâ la Guerre et Vishnu la Paix

Oracle 10.2.0.4 (RAC) - Forms6i patch 17 - Toad 11.7 - sharePoint 2010
Garuda est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse
Outils de la discussion

Navigation rapide


Fuseau horaire GMT +2. Il est actuellement 20h48.


 
 
 
 
Partenaires

Hébergement Web