Impossible ajout d'une référence DLL

Version imprimable

22/07/2009, 16h36
TomGratte

Impossible ajout d'une référence DLL

Bonjour, voilà mon problème :

j'essaye de faire fonctionner une macro sous excel, à l'aide d'un fichier DLL. Tout me porte à croire qu'Excel n'arrive pas à "voir" ce fichier DLL. (une erreur que j'obtiens est :

Citation:

Erreur d'exécution '53' : Fichier introuvable: D:\Masques\Carnaval_Excel.dll

alors que le fichier y est bien)

Alors j'essaye d'ajouter une référence, et j'ai lerreur :

Citation:

Impossible d'ajouter une référence au dossier spécifié

.

Lors de l'ajout de référence, il y a des centaines de librairies que l'on peut cocher, y a-t-il un rapport avec ça ? Ce que j'essaye de faire est :
Outils\Références\Parcourir\Ajouter, et j'ai l'erreur.

Quelqu'un peut-il m'aider ?
Merci
Tom
23/07/2009, 12h05
Invité

Salut TomGratte (Dommage que le prénom ne soit pas Sam :mouarf:)

Pour ton problème de DLL, peux-tu enregistrer la bibliothèque
Dans menu -> Démarrer -> Exécuter :
regsvr32 "D:\Masques\Carnaval_Excel.dll"

Que te dis Windows ?

A+
23/07/2009, 12h48
TomGratte

Bonjour Bruno, et merci de t'occuper de mon problème.

Windows me répond :

Citation:

LoadLibrary("D:\Masques\Carnaval_Excel.dll") a échoué - Le module spécifié est introuvable

Tom
23/07/2009, 13h00
Invité

Re,

Si tu as le fichier qui est bien situé dans le bon répertoire,
c'est qu'il ne s'agit pas d'un vrai fichier bibiliothèque !?

Donc tu ne pourras rien faire avec :roll:

Sinon, peux tu nous donner le code de ta macro ?

A+

Voici, le code, je n'ai pas mis la fin parce que ça bloque avant (en rouge où ça bloque):

Ca vient d'un logiciel libre qui s'appelle Carnaval, (qu'on trouve en tapant carnaval et incubsoftware sur google), qui à partir d'une coordonnée terrestre te donne les obstacles lointains (relief) qui pourraient gêner l'ensoleillement d'un panneau photovoltaïque. Je te donne cette info au cas où tu voudrais y regarder de plus près.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Private Const CarnavalBinariesDirectory As String = "D:\Masques\"

'
' Fonctions internes de la DLL Carnaval_Excel.dll
' En cas d'installation non standart de Carnaval,
' corriger le chemin d'accès à la librairie Carnaval_Excel.dll
' ( ligne suivant les caractères Lib _ )

'Initialisation de la DLL
Private Declare Sub Internal_DLLInit Lib _
"D:\Masques\Carnaval_Excel.dll" _
Alias "?load_database@@YGXXZ" ()

' Calcul de l'altitude du terrain en un point
Private Declare Sub Internal_GetAlt Lib _
"D:\Masques\Carnaval_Excel.dll" _
Alias "?get_alt@@YGXNNPAN@Z" (ByVal latdeg As Double, _
                              ByVal londeg As Double, _
                              ByRef alt As Double)

' Calcul de la hauteur de l'horizon depuis un point dans une direction donnée
Private Declare Sub Internal_GetHorizonAtAzimuth Lib _
"D:\Masques\Carnaval_Excel.dll" _
Alias "?calcHorizonElevation@@YGXNNNNNNPAN0@Z" (ByVal latdeg As Double, _
                                                ByVal londeg As Double, _
                                                ByVal observationheight As Double, _
                                                ByVal azimuthdeg As Double, _
                                                ByVal minsearchdist As Double, _
                                                ByVal maxsearchdist As Double, _
                                                ByRef elevationrad As Double, _
                                                ByRef maskdistancem As Double)
                                                
                                          
Private Declare Sub Internal_CalcAzimuth Lib _
"D:\Masques\Carnaval_Excel.dll" _
Alias "?calc_sun_azimut@@YGXNNJJJNPAN@Z" (ByVal latdeg As Double, _
                                        ByVal londeg As Double, _
                                        ByVal year As Long, _
                                        ByVal month As Long, _
                                        ByVal day As Long, _
                                        ByVal hour As Double, _
                                        ByRef azimut As Double)
                                        
Private Declare Sub Internal_CalcElevation Lib _
"D:\Masques\Carnaval_Excel.dll" _
Alias "?calc_sun_elevation@@YGXNNJJJNPAN@Z" (ByVal latdeg As Double, _
                                           ByVal londeg As Double, _
                                           ByVal year As Long, _
                                           ByVal month As Long, _
                                           ByVal day As Long, _
                                           ByVal hour As Double, _
                                           ByRef elevation As Double)
'/*------------------------------------------------------------------------------+
'| Fonction Init_Carnaval_DLL                                                    |
'+-------------------------------------------------------------------------------+
'| Entrée(s)                                                                     |
'+-------------------------------------------------------------------------------+
'| aucune                                                                        |
'+-------------------------------------------------------------------------------+
'| Sortie(s)                                                                     |
'+-------------------------------------------------------------------------------+
'| aucune                                                                        |
'+-------------------------------------------------------------------------------+
'| Remarques                                                                     |
'+-------------------------------------------------------------------------------+
'| aucune                                                                        |
'+------------------------------------------------------------------------------*/
Public Sub Init_Carnaval_DLL()
Dim current_path As String
current_path = CurDir()
ChDir (CarnavalBinariesDirectory)
Call Internal_DLLInit
ChDir (current_path)
End Sub

Merci, a plus tard
Tom

23/07/2009, 20h31
Invité

Re,

J'ai téléchargé Carnaval sur Incub.free.fr, et installé

Mais effectivement ça ne fonctionne pas.

Je pense que cette DLL n'est pas initialisable, ou as-tu eu ce code VBA ?

A+
24/07/2009, 08h42
TomGratte

Bonjour, eh bien il est tout simplement là normalement :
C:\Program Files\IncubSoftware\Carnaval\Excel\Carnaval_Excel.bas

A plus tard
Tom
24/07/2009, 10h33
Invité

Oups,

Avait pas mis mes lunettes ;):mouarf:
Effectivement il y a bien un répertoire Excel avec tout ce qu'il faut dedans.

Mais ça ne marche pas mieux, je n'y comprend rien !?

Désolé, mais je crois que je vais caller, sur ce coup là :oops:
Essaye peut-être de contacter les auteurs en allant sur le site !

A+