Discussion :

[canardav77]

Bonjour à tous et j'espère que vous arriverez à me venir en aide ... C'est la première fois que je poste sur un forum

Voici mon problème : Pour résoudre un problème d'optimisation combinatoire je fais appel à la librairie lpsolve depuis XL. Mon problème c'est que je n'arrive pas à donner un chemin relatif ( utilisable par tous les ordinateurs ) à ma librairie :

Voici le code de déclaration:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Declare Sub lpslink Lib "E:\datas\lpslink57.dll" _
(ByRef direction As Long, ByRef xCount As Long, ByRef objOut As Double, _
ByRef constCount As Long, ByRef constVec As Double, ByRef intCount As Long, _
ByRef intVec As Long, ByRef binCount As Long, ByRef binVec As Long, _
ByRef numBinSolns As Long, ByRef objVal As Double, ByRef solution As Double, _
ByRef presolve As Long, ByRef computeSens As Long, ByRef sensFrom As Double, _
ByRef sensTo As Double, ByRef duals As Double, ByRef dualsFrom As Double, _
ByRef dualsTo As Double, ByRef scalex As Long, ByRef useDense As Long, _
ByRef denseCol As Long, ByRef denseVal As Double, ByRef denseConstNrow As Long, ByRef denseCtr As Long, _
ByRef useRW As Long, ByRef useRWFile As String, ByRef status As Long)

Qui est un Path relatif . Avec cette déclaration tout fonctionne ( il me trouve la bibli)
Cependant j'aimerai plutot utiulisé une déclaration du type ( j'ai enlevé tous les paramètres de la fonction pour lisibilité )

Private Declare Sub lpslink Lib "datas\lpslink57.dll" ( si le dll est dans le dossier datas )

ou encore plus simplement :

Private Declare Sub lpslink Lib "lpslink57.dll" ( si mon fichier .dll est dans le path de mon Wbook)

ce qui selon moi semble tout à fait faisable mais ne fonctionne PAS : message d'erreur : Lp_Solve link failed error 53: fichier introuvable

J'ai déjà passé plus de 3 heures à essayer de trouver une solution mais sans succès.
PS: J'aimerai si possible evité de mettre la library dans le dossier de windows ( pour des raisons de droits d'admin )

Merci beaucoup par avance

[fring]

Private Declare Sub lpslink Lib "lpslink57.dll" ( si mon fichier .dll est dans le path de mon Wbook)

ce qui selon moi semble tout à fait faisable mais ne fonctionne PAS : message d'erreur : Lp_Solve link failed error 53: fichier introuvable

Bonjour,

Peut-être en ajoutant le chemin de recherche des Dll via SetDllDirectory à l'ouverture du classeur. Je n'ai jamais utilisé cette fonction donc à tester

• Déclaration
  

  Code :

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

  Private Declare Function SetDllDirectory Lib "Kernel32" Alias "SetDllDirectoryA" (ByVal path As String) As Long

• Utilisation
  

  Code :

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

  SetDllDirectoryA(ThisWorkbook.Path)

[canardav77]

Bonjour et encore merci pour votre réponse mais j'ai quand même des difficultés à la mettre en place :

J'ai mis

Private Declare Function SetDllDirectory Lib "Kernel32" Alias "SetDllDirectoryA"(ByVal path As String) As Long



en haut de mes déclaration et ensuite j'ai dans mon sub appellé la fonction :

SetDllDirectory(ThisWorkbook.path) = SetDllDirectoryA

Mais ça n'a pas l'air de fonctionner . En même temps je ne suis pas certain de comprendre comment utiliser la fonction.
Pour moi le but de cette manoeuvre est de dire va chercher les library dans ThisWorkbook.Path au lieu d'aller les chercher dans Kernel32
Mais encore une fois je ne suis sur de rien.

Merci encore pour votre aide et éclairez moi à nouveau dans les limites de vos connaissances

Bonne journée à tous

[kiki29]

Salut, sur MSDN ou via Gog

[fring]

j'ai dans mon sub appellé la fonction :

SetDllDirectory(ThisWorkbook.path) = SetDllDirectoryA

Je ne suis pas le grand vaudou des APIs mais il me semble que l'appel n'est pas correct

Code :

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

SetDllDirectoryA(ThisWorkbook.Path)

Désolé mais dans ce domaine je ne peux que te donner des pistes de recherche.