Discussion :

[oxo35]

Bonjour,

j'ai au problème au niveau de la consommation d'un web service depuis excel via un dll créer avec c#

voici mon code c#

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
namespace nameSpaceHello
{
    [ComVisible(true)]
    public class ClassHelloDll  
    {
 
 
        public string getHello(){
            return "hello";
        }
 
        public long createDeal()
        {
 
            POCWS.ServiceDomaineBean service;
            POCWS.createDealRequest req;
            long id;
            DateTime date;
 
            service = new POCWS.ServiceDomaineBeanClient();
            date = new DateTime();
            req = new POCWS.createDealRequest();
            req.Body = new POCWS.createDealRequestBody();
            req.Body.arg0 = "Bruno dll" + date.ToString();
 
            id = service.createDeal(req).Body.@return;
            return id;
        }
 
    }
 
}

sachant que j'ai tester précédemment l'appel au web service en projet normal

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
namespace WindowsFormsApplication1
{
    public partial class formWebService : Form
    {
        public formWebService()
        {
            InitializeComponent();
        }
 
        private void cmd_webservice_Click(object sender, EventArgs e)
        {
            POCWS.ServiceDomaineBean ws;
            POCWS.createDealRequest req;
 
 
            long id;
            DateTime date = new DateTime();
            ws = new POCWS.ServiceDomaineBeanClient();
            req = new POCWS.createDealRequest();
            req.Body = new POCWS.createDealRequestBody();
 
            req.Body.arg0 = "Bruno" + date.ToString();
            id= ws.createDeal(req).Body.@return;
            txt_dealid.Text = id.ToString();
        }
    }
}

lors de mon appel depuis VB d'excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  Dim hello As HelloDll.ClassHelloDll
    Set hello = New HelloDll.ClassHelloDll
    MsgBox hello.getHello
    MsgBox hello.createDeal

j'ai le message d'erreur en piece jointe sur MsgBox hello.createDeal

est ce que quelqu'un aurait une idée , merci