Discussion :

[Mü]

Bonjour à tous,

Voilà, je voudrais créer une dll utilisable avec des programmes VBAccess 97. Mais je n'arrive pas à charger la dll.
Le message est à chaque fois "can't add a reference to the specified file".

Pour tester, j'ai repris le code d'un tutorial sur le site.

Pouvez-vous me dire ce qu'il faut que je fasse pour que VBAcces prenne cette dll en compte?

Voici donc mon code Delphi:

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
library ConvEur;
 
Const
DevEuro=6.55957;
function ConvertEuro(Montant:double):double; stdcall;
begin
  Result:=Montant*DevEuro;
end;
 
function ConvertFranc(Montant:double):double; stdcall;
begin
  Result:=Montant/DevEuro;
end;
 
exports
  ConvertEuro,
  ConvertFranc;
begin
  {partie initialisation de la dll}
end.

Merci d'avance.


[modéré par Pascal Jankowski]
Pensez à ajouter les balises de code afin d'apporter une plus grande lisibilité dans vos posts: Merci

[Laurent Dardenne]

Salut,
je n'ai jamais fait, mais dans un premier temps modifie stdcall par cdecl.
Ensuite donne-nous le code de déclaration et d'appel de la DLL en VBA.
Le type currency est peut être préférable ?

[Mü]

Voici la déclaration de la dll dans VBA:

Tout d'abord, j'écris dans un module ceci:

Code :

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

1
2
 
Declare Function ConvertEuro Lib "D:\DELPHI\DELPHI\Exercices\Dll\mes\ConvEur.dll" (cpt As Double) As Double

Ensuite, dans le formulaire, je fais un appel du genre...

Code :

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

1
2
3
4
5
6
 
Private Sub test_Click()
   Dim cpt As Double
   cpt = ConvertEuro(6)
   MsgBox cpt, vbOKOnly
End Sub

[Laurent Dardenne]

Ok, as-tu modifié la convention d'appel ?
As-tu égalemment un pb d'appel avec une API Win32 ?

[Mü]

Ok, as-tu modifié la convention d'appel ?
As-tu égalemment un pb d'appel avec une API Win32 ?

Oui, je l'ai modifier, mais le problème est résolu.

En fait, je n'avais pas défini de point d'entrée dans la dll. Du coups, le programme VBA accédait à la dll mais ne pouvais pas identifier clairement la fonction appelée.

J'ai donc indexé mes fonctions à l'export de celles-ci sous delphi.

exemples:

Code :

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

1
2
exports
     ConvertFranc index 12;

Ensuite, sous VBA, j'ai défini un alias par le numéro d'index:

Code :

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

Declare Function ConvertFranc Lib "D:\DELPHI\DELPHI\Exercices\Dll\mes\ConvEur.dll" Alias "#12" (ByVal cpt As Double) As Double

Merci d'avoir suivi mon problème.

Mü