Import module en automatique

Bonjour,

J'ai déjà une macro en place qui génère automatiquement un fichier.

Je souhaite rajouter sur cette dernière la génération d'un bouton sur le fichier excel (fait).

Puis lorsque l'on clique sur le bouton cela va appeler le module nouvellement créé (fait aussi).

Mon soucis réside dans le fait de basculer en automatique le module en question du fichier source vers le fichier destination.

A savoir que le fichier destination est créé de la manière suivante:

Code:

---

Workbooks(fichier_rebut).SaveAs (chemin_rebut & "/UAP1 rebuts " & "J" & Day(Now) & "-" & Month(Now) & "-" & Year(Now))

---

Pour l'export, aucun soucis:
ActiveWorkbook.VBProject.VBComponents("Validation").Export ("XXX\Validation.bas") marche parfaitement.

Par contre, comment importer ce dernier (Validation.bas) dans le fichier nouvellement créé et cela automatiquement depuis la même macro ?

J'ai bien Application.VBE.ActiveVBProject.VBComponents.Import ("XXX\Validation.bas") mais je n'arrive pas à indiquer le fichier de destination.

Merci d'avance !

Bonjour,

et que se passe-t-il? Que veux tu dire par :

Citation:

---

... je n'arrive pas à indiquer le fichier de destination.

---

Application.VBE.ActiveVBProject.VBComponents.Import va importer vers le projet actif, je souhaite viser le projet nouvellement créer.

c'est bien ce que je pensait

oriente toi plutôt vers une forme comme celle-ci :

Code:

---

destinationbook.VBProject.VBComponents.Import

---

J'ai essayé avec un destinationbook = "XXX\test.xlsx" précédemment créé sans succès.

A défaut de l'importer depuis un export, existe-il un moyen de créer un module de classe à la volée lors de la génération du fichier ?

Le code ci-dessous fonctionne sans problèmes.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit Public Const TEST_BAS As String = "C:\test.bas"   Sub imporexpor() Dim wb As Workbook   ActiveWorkbook.VBProject.VBComponents("test").Export TEST_BAS   Set wb = Application.Workbooks.Add   ThisWorkbook.Activate   wb.VBProject.VBComponents.Import TEST_BAS   End Sub

---

Et pour répondre à ta deuxièmes question, oui, cela peut-être fait sans trop de problèmes

Code:

---

ActiveWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).CodeModule.AddFromString(STRING_A_DEFINIR)

---