Copier/Coller un module dans un autre classeurVBAProjectt

Bonjour à toutes & tous

Je suis nouveau membre de cette confrérie, je vous souhaite plein de réussite dans vos programmation sans trop de prise de tête...

Je sollicite votre aide, car je bute face à un problème malgré mes recherche sur les différents sites.

Je désir, avec du code VBA copier un module dans mon projet "A" et le coller dans un nouveau classeur "B" qui sera transmit au opérationnel sur le terrain.

Le plus simple que j'ai découvert c'est d'exporter puis d'importer ce module.

Voici les morceaux de code que j'ai trouvé, qui ne fonctionne pas.

Merci par avance de votre indulgence pour mon premier post. J'accepterai très chaleureusement vos conseils.

J'espère que l'un d'entre vous m'apportera une solution.

Amicalement.

'Copier/Coller un module dans un autre classeurVBAProject()

Sub exportModule()
Dim chemin As String
chemin = "D:\SaveModule\export.bas"
ThisWorkbook.VBProject.VBComponents("Module_creerLien").Export chemin

'---- Ne fonctionne pas -----

End Sub

Sub importModule()
Dim chemin As String
chemin = "D:\SaveModule\export.bas"
ThisWorkbook.VBProject.VBComponents.Export chemin

'---- Ne fonctionne pas -----

End Sub

Bonjour,

Le plus simple est de tirer le module d'un classeur vers l'autre dans l'éditeur VBA.

Daniel

... sinon, sauf que tu as mis "Export" au lieu de "Import" pour la macro d'importation, est-ce que tu as bien coché "accès approuvé au modèle d'objet du projet VBA" dans les options ?

Daniel

Merci Daniel

Pour ta réponse, mais le hic c'est que la personne n'aura pas accès au code...

C'est pour cela que je cherche une solution pour que de l'outil.xlsm en sa possession, elle pourra créer un outil.xlsm secondaire, comportant les élément utile à son travail.

Je ne me suis peut être pas correctement exprimé, toute mes excuses.

Merci par avance pour votre soutient.

Hugues

Et en ce qui concerne mon deuxième post ?

Daniel

Merci Daniel

Pardon de répondre que maintenant, j'ai du m'absenter...

Concernant ton post ou je trouve cette cette fameuse coche "accès approuvé au modèle d'objet du projet VBA" ?

Merci pour ta patience

Hugues

Hello Daniel

Jai trouvé la fameuse coche dans les Options d'Excel, "Centre de gestion de la confidentialité", "Paramètres du centre de gestion de la confidentialité", "Paramètres des macros", la case "Accès approuvé au modèle d'objet du projet VA"

Et tout roule, mais je voudrai savoir si il serait possible de déclencher l'importation du fichier d'origine.

Je m'explique: Macro Export dans le classeur "Origine" envoi "Module.bas" dans un répertoire, puis une seconde action sur le classeur "Origine" importe "Module.bas" dans le nouveau classeur avant son enregistrement...

Il est dommage que la fonction (ThisWorkbook.VBProject.VBComponents.) n'offre pas la possibilité de copier/coller...

Je te remercie

bon courage

Hugues

Pas de souci :

Sub ImportExport()
Dim chemin As String
chemin = "D:\SaveModule\export.bas"
ThisWorkbook.VBProject.VBComponents("Module_creerLien").Export chemin
Workbooks("test2.xlsm").VBProject.VBComponents.Import chemin
End Sub

La macro est dans le classeur qui contient le module. On peut faire l'inverse ou utliser un troisième classeur.

Daniel

Merci Daniel

Toutes ces informations mon permis de réaliser ce que je désirer ou presque.

Je te souhaite un très bon chemin...

Hugues