Discussion :

[Montor]

J'ai deja pose cette question sur le forum delphi
Pourquoi je ne peux pas appeler cette function sous vba

Code :

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

1
2
3
4
5
6
7
8
9
library Test;
function Test(X:integer):integer ; stdcall ;
begin
result:=X;
end;
exports
Test ;
begin
end.

Appel

Code :

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

1
2
3
4
5
6
7
Option Explicit
Private Declare Function Test Lib "Test" (X As Long) As Long
Sub oprt_1()
Dim nums As Long
nums = 1200
MsgBox Test(nums)
End Sub

[Gorfael]

Salut delphidelphi

J'ai deja pose cette question sur le forum delphi
Pourquoi je ne peux pas appeler cette function sous vba

euh... peut-être par ce que ce n'est pas un code VBA ?
A+

[patbou]

bonsoir,

Code :

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

function Test(X:integer):integer ; stdcall ;

ici la fonction et la variable sont de type integer
alors que tu les appellent avec des types long !!!

ta fonction test est elle reellement dans la librairie "test" ?

a quoi sert "stdcall"

[Montor]

En delphi un integer est l'equivalant d 'un long en vba
Voici la discussion sur le forum delphi

http://www.developpez.net/forums/sho...80#post3344280