Discussion :

[loufab]

Bonjour,

Je souhaite réaliser une Dll pour VBA, pour l'instant je souhaite simplement envoyer des valeurs à une méthode de la Dll et qu'elle me renvoie le résultat.

J'ai suivi la page MS suivante :
https://learn.microsoft.com/en-us/do...ng-com-objects

J'ai bien coché l'option COM dans les préférences du projet.

Voici le code VB de mon test :

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
Imports System.Runtime.InteropServices
 
<ComClass(ComClass1.ClassId, ComClass1.InterfaceId, ComClass1.EventsId)>
<ComVisible(True)>
Public Class ComClass1
 
#Region "COM GUIDs"
    Public Const ClassId As String = "E3C9AB19-7696-42A9-B934-F687E18C6E3A"
    Public Const InterfaceId As String = "12642CF7-5F75-437D-974D-58825811C40F"
    Public Const EventsId As String = "1E4CB5DE-9875-42BE-A8DE-EDFE4E49A04B"
#End Region
 
    Public Sub New()
        MyBase.New()
    End Sub
 
    <ComVisible(True)>
    Public Function Addition(valeur1 As Double, valeur2 As Double) As Double
        Addition = valeur1 + valeur2
    End Function
 
End Class

La Dll est créé mais il y a une erreur lors du regasm :



VS2022 et la ligne de commande pour lancer le regasm sont lancé en mode administrateur.

J'ai lancé un MsBuild, en voici le résultat :

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
MSBuild version 17.4.1+9a89d02ff for .NET Framework
Les projets sont g‚n‚r‚s individuellement dans cette solution. Pour activer la g‚n‚ration en parallŠle, ajoutez le commutateur "-m".
La g‚n‚ration a d‚marr‚ 06/02/2023 13:24:02.
Projet "D:\MyDotNetProjects\repos\ClassLibrary1\ClassLibrary1.sln" sur le noud 1 (cibles par d‚faut).
ValidateSolutionConfiguration:
  G‚n‚ration de la configuration de solution "Debug|Any CPU".
Le projet "D:\MyDotNetProjects\repos\ClassLibrary1\ClassLibrary1.sln" (1) g‚nŠre "D:\MyDotNetProjects\repos\ClassLibrary1\ClassLibrary1\ClassLibrary1.vbproj" (2) sur le noud 1 (cibles par d‚faut).
GenerateTargetFrameworkMonikerAttribute:
La cible est ignor‚e "GenerateTargetFrameworkMonikerAttribute", car tous les fichiers de sortie sont à jour par rapport aux fichiers d'entr‚e.
CoreGenerateAssemblyInfo:
La cible est ignor‚e "CoreGenerateAssemblyInfo", car tous les fichiers de sortie sont à jour par rapport aux fichiers d'entr‚e.
CoreCompile:
La cible est ignor‚e "CoreCompile", car tous les fichiers de sortie sont à jour par rapport aux fichiers d'entr‚e.
GenerateBuildDependencyFile:
La cible est ignor‚e "GenerateBuildDependencyFile", car tous les fichiers de sortie sont à jour par rapport aux fichiers d'entr‚e.
CopyFilesToOutputDirectory:
  ClassLibrary1 -> D:\MyDotNetProjects\repos\ClassLibrary1\ClassLibrary1\bin\Debug\net6.0\ClassLibrary1.dll
G‚n‚ration du projet "D:\MyDotNetProjects\repos\ClassLibrary1\ClassLibrary1\ClassLibrary1.vbproj" termin‚e (cibles par d‚faut).
G‚n‚ration du projet "D:\MyDotNetProjects\repos\ClassLibrary1\ClassLibrary1.sln" termin‚e (cibles par d‚faut).
 
La g‚n‚ration a r‚ussi.
    0 Avertissement(s)
    0 Erreur(s)
 
Temps ‚coul‚ 00:00:00.61

J'ai fait pas mal de recherche sur le NET, j'ai dû passer à côté d'un truc.

Cordialement,

[umfred]

J'ai l'impression que ton projet d'origine est en .NET 6 (présence du répertoire net6.0 dans le chemin du debug), et pas .NET Framework 4.8 (par exemple) et que c'est ça qui cause l'erreur avec regasm (qui je crois est pour les composants COM issu de .NET Framework).
Dans le cas de .NET (Core), ça passe par regsvr32 => https://learn.microsoft.com/en-us/do...ponents-to-com

[loufab]

Merci pour ta réponse qui me fait avancer.

J'ai donc téléchargé la version 4.8 et impossible de la voir sur vs2022. En allant faire un tour sur MS pour connaitre le pourquoi je suis tombé sur cette info aussi intéressante que bien planqué au fin fond d'une page (MS ne changera jamais sur l'information).

À compter de Visual Studio 2022, Visual Studio n’inclut plus les composants .NET Framework pour .NET Framework 4.0 - 4.5.1, car ces versions ne sont plus prises en charge. Visual Studio 2022 et ses versions ultérieures ne peuvent pas générer d’applications ciblant .NET Framework 4.0 à .NET Framework 4.5.1. Pour continuer à créer ces applications, vous pouvez utiliser Visual Studio 2019 ou une version antérieure.

Donc je vais virer VS2022 et poser VS2019 à la place en espérant que ça marche mieux. Je verrais plus tard pour les composants PIA.

A suivre...

[loufab]

J'ai bien avancé avec le vs2019 et .net 4.8

ça génère la Dll et le Tlb sans erreur, j'arrive à l'inscrire avec regasm mais pas regsvr32.



Je le vois dans la liste des références du VBE, dans l'explorateur d'objet, la (pauvre) fonction dans l'autocomplétion de même que les 2 paramètres.

A l'exécution il me dit que la classe n'est pas enregistrée.

je ne désespère pas.

[umfred]

euh il est dit que VS2002 ne gère plus .net Framework jusqu'à 4.5; donc 4.8 ça fonctionne ....
Il faut choisir à la création du projet un projet noté Framework pour utiliser .NET Framework, sinon par défaut c'est .NET (core).

regasm doit suffire pour enregistrer la dll d'après sa doc.

Après essais et sueurs, il faut lancer la commande regasm avec l'option /codebase (un message te dira d'utiliser un nom fort pour ta dll et te préviendra d'un probleme de potentiel interférence avec d'autres dll, mais fera l'inscription et rendra ta dll utilisable)
nom fort = autre chose ClassLibraryx (bref un nom bien parlant)

[loufab]

merci pour toutes ces précieuses infos.

Je vais tenter ça.

[loufab]

Merci umfred. Tu as bien solutionné mon problème.

• Désinstallation de vs2019
• installation de vs2022
• Démarrer en mode admin
• Sélection des composants Office (pour plus tard)
• Nouveau projet
• Filtre visual basic / Windows
• Choix de Bibliothèque de classes (.Net Framework)
• Cocher la case Projet/Propriétés du projet.../Compiler/S'inscrire à COM Interop

J'ai mis mon petit code rikiki

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
Imports System.Runtime.InteropServices
 
<ComClass(ComClass1.ClassId, ComClass1.InterfaceId, ComClass1.EventsId)>
<ComVisible(True)>
Public Class ComClass1
 
#Region "COM GUIDs"
    Public Const ClassId As String = "..."
    Public Const InterfaceId As String = "..."
    Public Const EventsId As String = "..."
#End Region
 
    Public Sub New()
        MyBase.New()
    End Sub
 
    <ComVisible(True)>
    Public Function Addition(valeur1 As Double, valeur2 As Double) As Double
        Addition = valeur1 + valeur2
    End Function
 
End Class

La valeur de chaque Const doit être remplacée par un Code GUI unique (Outils / Create GUI).
Générer le projet.

Pour inscrire la dll :
regasm nomDeLaDll.dll /codebase

Et ça fonctionne parfaitement dans un projet VBA.