p
u
b
l
i
c
i
t
é
publicité

Discussion: VBA et Web services

  1. #1
    Invité de passage
    Inscrit en
    avril 2010
    Messages
    8
    Détails du profil
    Informations forums :
    Inscription : avril 2010
    Messages : 8
    Points : 4
    Points
    4

    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 : 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
    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

  2. #2
    Membre Expert Avatar de Garuda
    Homme Profil pro
    Chef de projet
    Inscrit en
    juin 2007
    Messages
    1 245
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

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

    Informations forums :
    Inscription : juin 2007
    Messages : 1 245
    Points : 2 025
    Points
    2 025

    Par défaut

    A quelle ligne, l'erreur ????
    Garuda गरूड
    Brahmâ la Guerre et Vishnu la Paix

    Oracle 10.2.0.4 (RAC) - Forms6i patch 17 - Toad 12 - sharePoint 2010

Discussions similaires

  1. [XL-2007] Web Service SOAP Fichier WSDL / Excel 2007 VBA / Extraction des données dans un classeur
    Par crusaders dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 08/12/2014, 12h05
  2. VBA ,word et web service .
    Par matthieudt dans le forum VBA Word
    Réponses: 3
    Dernier message: 04/03/2010, 13h40
  3. appel de web services avec les vba excel qui manipule les xsl.
    Par naim8622 dans le forum Services Web
    Réponses: 0
    Dernier message: 13/01/2009, 09h57
  4. VBA + Web service
    Par miniseb dans le forum Général VBA
    Réponses: 2
    Dernier message: 06/02/2008, 15h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo