Discussion :

[cbleas]

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.

[Arkham46]

salut,

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

tu ne peux pas déclarer la fonction avec :

Code :

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

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

[cbleas]

Bonjour Arkam46

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

[Arkham46]

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?

[Jean-Philippe André]

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

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

[cbleas]

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 :

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
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

[Arkham46]

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.

[cbleas]

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