Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2

Discussion: VBA et Web services

  1. #1
    Invité de passage
    Profil pro Olivier MAMDY
    Inscrit en
    avril 2010
    Messages
    8
    Détails du profil
    Informations personnelles :
    Nom : Olivier MAMDY

    Informations forums :
    Inscription : avril 2010
    Messages : 8
    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

  2. #2
    Membre Expert Avatar de Garuda
    Homme Profil pro Philippe CHIRCOP
    Chef de projet
    Inscrit en
    juin 2007
    Messages
    1 238
    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 238
    Points : 1 878
    Points
    1 878

    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

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •