dll utilisable avec VBAccess 97

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:

---

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

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 ?

Voici la déclaration de la dll dans VBA:

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

Code:

---

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:

---

1 2 3 4 5 6

Private Sub test_Click() Dim cpt As Double cpt = ConvertEuro(6) MsgBox cpt, vbOKOnly End Sub

---

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

Citation:

---

Envoyé par Laurent Dardenne

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:

---

1 2	exports ConvertFranc index 12;

---

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

Code:

---

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ü