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