Discussion :

[Kheiz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[mayekeul]

Bonjour,

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

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

[Kheiz]

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

[mayekeul]

c'est bien ce que je pensait

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

destinationbook.VBProject.VBComponents.Import

[Kheiz]

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 ?

[mayekeul]

Le code ci-dessous fonctionne sans problèmes.

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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