utiliser CallWindowProc pour appeler une fonction

Bonjour,
je dois utiliser une fonction de dll qu'il n'est pas possible d'enregistrer dans les références (défaut)
j'tilise donc loadlibrary
et j'appele CallWindowProc le problème est que je ne sais pas utiliser la fonction avec des arguments.

merci de me donner des conseils.

salut,

Citation:

---

Envoyé par cbleas

[...]
j'tilise donc loadlibrary
et j'appele CallWindowProc [...]

---

tu ne peux pas déclarer la fonction avec :

Code:

---

1 2	Declare Function mafonction lib "malibrairie.dll" (byval pParam as long)

---

:question:

Bonjour Arkam46

Citation:

---

tu ne peux pas déclarer la fonction avec :

Code :

Declare Function mafonction lib "malibrairie.dll" (byval pParam as long)

---

Qu'est ce qu'on peut faire pour déclarer la fonction de façon dynamique?

Merci

Citation:

---

Envoyé par cbleas

Qu'est ce qu'on peut faire pour déclarer la fonction de façon dynamique?

---

ça veut dire quoi dynamique??
le nom de la fonction est variable, ou bien ses arguments?

salut,
Arkham46, je crois que cbleas n'a pas remarqué ton :question: en dessous de ton exemple.

Le code fourni est à mettre en début de tes modules.

Bonjour,
désolé pour ce retard. comme le disait jpcheck je n'avais pas vu ?
sinon je met le code.
j'essai de référencer dynamiquement une fonction d'une DLL car je n'arrive pas à la mettre en référence dans le VBA.
Le code que j'utilise est

Code:

---

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

Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" _ (ByVal lpLibFileName As String) As Long   Public Declare Function FreeLibrary Lib "kernel32" _ (ByVal hLibModule As Long) As Long   Public Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As _ Long, ByVal lpProcName As String) As Long   Public Declare Function printForm Lib "C:\Program Files\FMS\FormMaker\bin\FmsFormMakerDll.dll" (ByVal xmlFileIn As String, ByVal pdfFileIn As String, ByVal numberOfCopies As Integer) As String         ''permet de mettre les fonction de Anoto Function ChargementDll()   On Error Resume Next Dim X As Long Dim Y As Long   X = LoadLibrary("C:\Program Files\FMS\FormMaker\bin\FmsFormMakerDll.dll")   Y = GetProcAddress(X, "printForm")   a = printForm("C:\Documents and Settings\Christian\Bureau\ANOTO\278.xml", "C:\Documents and Settings\Christian\Bureau\ANOTO\278-06.pdf", 1)   FreeLibrary X     End Function

---

Vous remarquerez que ce n'est plus CallWindowProc mais printForm
dès que j'appelle cette fonction ACCESS Plante.

est ce due à la facon de faire ou au fait que la Dll ne soit pas compatible avec VBA?

pour ce qui est du référencement dynamique c'est des appel à des fonction externe et à la libération des ressource (d'après ce que j'ai compris)

Merci

Si tu utilises loadlibrary, il n'est pas nécessaire de mettre le chemin complet dans la déclaration (sinon on y perd de l'intérêt)

Mais ça ne résous pas le problème.
Sans connaître la dll c'est pas facile.

Bonjour,
On connait la dll mais il est impossible de l'intégrer dans les références.