Discussion :

[Depite]

Bonjour à tous,

Je tente de créer une bibliothèque de fonctions sous VB.net (VS2015) afin de l’utiliser dans des projets Access VBA.
J’ai créé un projet DLL VB.net très simple constitué d’une classe déclarée publique exposant deux fonctions élémentaires et publiques également (l’une portant sur une chaine de texte, l’autre sur un nombre réel).

Après une première compilation j’ai constaté que la DLL n’apparaissait pas dans la liste des références que je pouvais associer à un projet Access ; Ceci était probablement dû au fait qu’aucun fichier .tlb n’avait été généré.
J’ai complété mon projet VB.net en y ajoutant une Interface implémentée par ma classe. Après une nouvelle compilation la DLL apparait dans la liste des références associables à mon projet VBA, OK.

Côté VBA maintenant, pour utiliser l’une ou l’autre des deux fonctions exposées par ma DLL VB.net je suis obligé de créer une instance de la classe publique dont elles font partie et ça m’embête beaucoup car le but est de transposer dans cette bibliothèque VB.net un ensemble de fonctions utilitaires actuellement incorporées aux projets VBA qui les utilisent sans préfixer leurs noms d’un nom d’objet.

Lorsque je crée des DLL VB6 destinées à ce genre d’usage je crée des classes avec la propriété d’instanciation « GlobalMultiUse » et je n’ai pas à instancier un objet correspondant dans les applications clientes. Est-il possible de faire la même chose avec une DLL créée sous VB.net et, si oui, comment ?

Merci pour votre aide et joyeux Noël,

[wallace1]

http://www.geeksengine.com/article/create-dll.html

[Depite]

Merci Wallace1 pour ta réponse rapide.

J'ai lu avec intérêt l'article que tu m'as proposé et je regrette de ne pas l'avoir lu plus tôt car comme le dit son auteur, j'aurais évité quelques heures de mal de crâne!

Bon, le problème c'est que cet article ne décrit rien de plus que ce que je fais déjà si ce n'est qu'il ne déclare pas d'interface mais comme il est écrit en C# ceci explique peut-être cela; toujours est-il qu'il ne répond pas à la question qui est "peut-on invoquer des procédures de la DLL dans VBA sans avoir à créer d'objet?"

[wallace1]

Merci Wallace1 pour ta réponse rapide.

J'ai lu avec intérêt l'article que tu m'as proposé et je regrette de ne pas l'avoir lu plus tôt car comme le dit son auteur, j'aurais évité quelques heures de mal de crâne!

Bon, le problème c'est que cet article ne décrit rien de plus que ce que je fais déjà si ce n'est qu'il ne déclare pas d'interface mais comme il est écrit en C# ceci explique peut-être cela; toujours est-il qu'il ne répond pas à la question qui est "peut-on invoquer des procédures de la DLL dans VBA sans avoir à créer d'objet?"

Es-tu certain d'avoir configuré ton projet type DLL en COM Visible ?

"[I]peut-on invoquer des procédures de la DLL dans VBA [U]sans avoir à créer d'objet?

C'est sure que si tu as créés une DLL qui contient de l'instanciation qu'il faudra instancier ensuite dans ton Interop !!!!! Donc montres le contenu de ta DLL qu'on soit certain de parler le même langage stp....
Si tu veux pas d'instanciation alors tu codes des méthodes publiques partagées dans ta DLL et le problème est réglé

[Depite]

J'ai bien coché les options "Rendre l'assembly visible par COM" et "inscrire pour COM Interop"

Voici ma première approche (sans interface), tout appel d'une des fonctions est rejeté à la compilation du projet VBA:

Code :

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

1
2
3
4
5
6
7
8
9
 
Public Class ClasseTest
    Public Shared Function Test() As String 
        Return "Test réussi"
    End Function
    Public Shared Function Ajouter(Nombre1 As Single, nombre2 As Single) As Single
        Return Nombre1 + nombre2
    End Function
End Class

Voici l'approche avec Interface; rend mes fonctions visibles dans l'explorateur d'objets de VBA mais nécessite d'instancier un objet:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Interface IClasseTest
    Function Test() As String
    Function Addition(Num1 As Single, Num2 As Single) As Single
End Interface
Public Class ClasseTest
    Implements IClasseTest
    Public Function Test() As String Implements IClasseTest.Test
        Return "Test réussi"
    End Function
    Public Function Ajouter(Nombre1 As Single, nombre2 As Single) As Single Implements IClasseTest.Addition
        Return Nombre1 + nombre2
    End Function
End Class

[clementmarcotte]

Bonjour,

Bonjour à tous,


Lorsque je crée des DLL VB6 destinées à ce genre d’usage je crée des classes avec la propriété d’instanciation « GlobalMultiUse » et je n’ai pas à instancier un objet correspondant dans les applications clientes. Est-il possible de faire la même chose avec une DLL créée sous VB.net et, si oui, comment ?

Merci pour votre aide et joyeux Noël,

Je ne pense pas. VBA n'est pas VB6; surtout que VBA n'est pas un langage compilé. Ceci dit, je ne connais pas VBA Access. Mais il faudrait que MS ait prévu le cas uniquement pour Access, ce dont je doute. Encore que ce soit possible avec un ActiveX.

Et quand on travaille en Late Binding, il faut absolument que l'objet externe soit instancié avant de vouloir l'utiliser.

[Invité]

bonjour,
vas dans les références de ton projet et importe le manifeste de ta DLL.

[Depite]

Merci pour ta réponse dysorthographie,

C'est bien ce que j'ai fait et ma bibliothèque fonctionne mais uniquement lorsque je déclare un objet de la classe de ma DLL qui fournit les méthodes distribuées.

Je précise:

dans mon projet DLL

Code :

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

1
2
3
4
5
6
 
public class clOutils
  public function Addition(byval A as long, byval B as long) as long
    return A + B
  end function
end class

Dans mon code VBA

Code :

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

1
2
3
4
5
 
dim x as long 
x = Addition(1,1)  ' ERREUR
dim Obj as new clOutils
x = Obj.Addition(1,1)  '  Fonctionne

Bien sûr je peux déclarer globalement un objet unique et y faire référence à chaque appel de chaque fonction mais lorsqu'il s'agit de remplacer les fonctions globales actuellement fournies par un module intégré dans le projet VBA ça fait beaucoup de lignes à modifier pour préfixer les noms des fonctions par le nom de l'objet.

Si ce n'est pas possible je concentrerai les appels aux fonctions de la bibliothèque dans un module VBA ce qui me permettra de conserver le code initial tel quel tout en permettant le partage et l'évolution entre différents projets.

Code :

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

1
2
3
4
5
6
7
8
 
'VBA
Module Bibliothèque
  dim Obj as clOutils
  public function Addition(X as long, Y as long) as long
    return Obj.Addition(X,y)
  end function
end module