IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Discussion :

VBA et Web services


Sujet :

VBA

  1. #1
    Membre à l'essai
    Inscrit en
    Avril 2010
    Messages
    12
    Détails du profil
    Informations forums :
    Inscription : Avril 2010
    Messages : 12
    Points : 12
    Points
    12
    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 chevronné Avatar de Garuda
    Homme Profil pro
    Chef de projet / Urbaniste SI
    Inscrit en
    Juin 2007
    Messages
    1 285
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

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

    Informations forums :
    Inscription : Juin 2007
    Messages : 1 285
    Points : 2 071
    Points
    2 071
    Par défaut
    A quelle ligne, l'erreur ????
    Garuda गरूड
    Brahmâ la Guerre et Vishnu la Paix

    Oracle 12C R2 - Forms11GR2 - Toad 12 - sharePoint 2010

Discussions similaires

  1. [XL-2007] Web Service SOAP Fichier WSDL / Extraction des données dans un classeur
    Par crusaders dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 08/12/2014, 13h05
  2. VBA ,word et web service .
    Par matthieudt dans le forum VBA Word
    Réponses: 3
    Dernier message: 04/03/2010, 14h40
  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, 10h57
  4. VBA + Web service
    Par miniseb dans le forum Général VBA
    Réponses: 2
    Dernier message: 06/02/2008, 16h30

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