Import de Module

[Freeman23]

Bonjour,

Aujourd'hui c'est moi qui cherche une fonction que je ne connais pas, il me semble que Zeb connait la réponse mais j'arrive plus à mettre la main sur le sujet de l'époque.
Dans le but de permettre d'automatiser la mise en place d'un module de calcul du canal de Suez D interessant non ), car sinon je vais devoir me faire une centaine de fichier à mettre à jour à la main...

Je cherche à réaliser en automatique l'import d'un module dans un nouveau classeur, cela pour en gros faire un pseudo setup automatisé.
En gros j'ai un classeur contenant les onglets et un module à ajouter dans un classeur déterminer par l'utilisateur, c'est simple d'importer les feuilles mais par contre le module je sais pas comment faire et là pas possible de chercher avec l'enregistreur de macro...

 

[zeb]

Freeman,

C'est ça que tu cherchais :

Vous devez être connecté pour voir les liens.

 

[Freeman23]

Ouep merci bien

Zeb

 

[zeb]

Dim module As VBComponent
Set module = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)

module.Name = "ModuleCanalDeSuez"
   
module.CodeModule.AddFromString _
    "Sub piraterie" & Chr(13) & _
    "  If Voilier.Name = ""Ponant"" Then MsgBox ""A l'abordage""" & Chr(13) & _
    "End Sub"

rhooooooooooooo!

On aimera aussi jouer avec AddFromFile.

 

[Freeman23]

Moi j'ai utilisé ceci :

Car j'importe un .bas directement

wb_file.VBProject.VBComponents.Import (K_PATH_MODULE_BUNKER)

 

[zeb]

C'est quoi ces parenthèses autour des paramètres d'une procédure ?



Faut toujours que je trouve un truc à redire

 

[Freeman23]

...

Spoiler

Pour faire parler les mauvaises langues