Dans cet article, nous allons créer une macro pour importer un module dans le classeur actif.

Nous utiliserons Filename.bas comme module, que nous voulons importer.

Cliquez sur le bouton d’insertion pour importer le module de Filename.bas vers le classeur actif.

ArrowMain

Le classeur contient un seul module «MainModule».

ArrowMainModule

Après avoir exécuté la macro, un nouveau module sera importé de Filename.bas

ArrowOutput

Explication logique

Dans cet article, nous avons créé deux macros, InsertVBComponent et Calling_Procedure

InsertVBComponent

Il prend le nom du classeur et le nom du fichier comme entrées et importe le module dans le classeur.

Procédure_appel

Il est utilisé pour appeler la macro InsertVBComponent avec le classeur actif et Filename.bas comme entrées.

Explication du code

Si Dir (CompFileName) <> «  » Then Above code est utilisé pour vérifier si le nom de fichier existe dans le répertoire.

wb.VBProject.VBComponents.Import CompFileName Le code ci-dessus est utilisé pour importer le module dans le classeur actif.

Veuillez suivre ci-dessous pour le code

Option Explicit

Sub InsertVBComponent(ByVal wb As Workbook, ByVal CompFileName As String)

' Inserts the content of CompFileName as a new component in workbook

' CompFileName must be a valid VBA component suited for

' import (an exported VBA component)

'Checking whether CompFileName file exists

If Dir(CompFileName) <> "" Then



'Ignore errors

On Error Resume Next



'Inserts component from file

wb.VBProject.VBComponents.Import CompFileName



On Error GoTo 0

End If

Set wb = Nothing

End Sub

Sub Calling_Procedure()



'Calling InsertVBComponent procedure

InsertVBComponent ActiveWorkbook, "C:\Users\Ramandeep\Desktop\Filename.bas"



End Sub

Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.

Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer notre travail et l’améliorer pour vous. Écrivez-nous à [email protected]