Discussion :

[TomGratte]

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 :

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 :

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

[Invité]

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

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+

[TomGratte]

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

Windows me répond :

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

Tom

[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

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

A+

[TomGratte]

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 :

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

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

[TomGratte]

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

A plus tard
Tom

[Invité]

Oups,

Avait pas mis mes lunettes
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à
Essaye peut-être de contacter les auteurs en allant sur le site !

A+