Discussion :

[younesait]

Bonsoir tout le monde

SVP j'ai vraiment besoin votre aide

c'est la première fois que j'essaie de créer une c++ dll pour faire de traitement et retourner le résultat en vba excel.
donc j'ai créée une c++ dll en utilisant code blocks,et j'ai essayé de faire l'appel de cette dll sur vba excel mais une erreur s'affiche :

runtime error 48 :
file not found
""C:\Users\younes\Desktop\vba-c++\dllpr\bin\Release\dllpr.dll"

code main.cpp:

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
 
 
#include "main.h"
 
// a sample exported function
DLL_EXPORT int __stdcall carre(int chiffre)
{
    return chiffre*chiffre;
}
 
extern "C" DLL_EXPORT BOOL APIENTRY DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
{
    switch (fdwReason)
    {
        case DLL_PROCESS_ATTACH:
            // attach to process
            // return FALSE to fail DLL load
            break;
 
        case DLL_PROCESS_DETACH:
            // detach from process
            break;
 
        case DLL_THREAD_ATTACH:
            // attach to thread
            break;
 
        case DLL_THREAD_DETACH:
            // detach from thread
            break;
    }
    return TRUE; // succesful
}

code main.h :

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
 
#include <windows.h>
 
/*  To use this exported function of dll, include this header
 *  in your project.
 */
 
#ifdef BUILD_DLL
    #define DLL_EXPORT __declspec(dllexport)
#else
    #define DLL_EXPORT __declspec(dllimport)
#endif
 
 
#ifdef __cplusplus
extern "C"
{
#endif
 
DLL_EXPORT int __stdcall carre(int chiffre);
 
#ifdef __cplusplus
}
#endif
 
#endif // __MAIN_H__

code VBA :

Code :

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

1
2
3
4
5
6
7
8
9
 
Option Explicit
 
Public Declare PtrSafe Function carre Lib "C:\Users\younes\Desktop\vba-c++\dllpr\bin\Release\dllpr.dll" (ByVal chiffre As Integer) As Integer
 
 
Sub test()
MsgBox carre(10)
End Sub

je serais très reconnaissant pour votre aide!
merciii d'avance

[Jean-Philippe André]

Salut,

un peu de lecture :

http://rp.developpez.com/vb/tutoriels/dll/

[joe.levrai]

Bonjour,

et plus précisément ça : http://rp.developpez.com/vb/tutoriels/dll/#LV

[Invité]

Bonjour,
Ca fait 30 ans que je n'ai pas vue de c++ et je n'étais certainement pas le mayeur!

Mais je pense que tu peux faire un déploiement de ta dll sous forme de setup.exe.

Une fois compilé un installes ta dll via le setup pus tu l!instancie avec createobject dans Vba Excel!

Si non regarde pour inscrire ta dll dans la base de registre!

Code :

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

REGSVR32 "c:\monRep\MaDll.dll"