Discussion :

[XineMA]

Bonjour,


je cherche à "copier" des userform, modules classes etc.. d'un VBA sous excel vers un VBA sous un autre excel.

J'avais trouvé ceci mais ne suis pas sûre que les objets de VBA soient repris dans le merge

MergeWorkBook

avec le code suivant : ActiveWorkbook.MergeWorkbook "test2.xls"


Test2.xls est dans le même répertoire que activeworkbook et est fermé.
Je recois un msg d'erreur 1004 or activeworkbbok est bien un objet .

Je ne sais déja pas si c'est la bonne solution et en plus elle ne fonctionne pas

je suis désespérée ...

[ouskel'n'or]

Quelque part, SilkyRoad décrit tout ça très bien. Je n'ai pas retrouvé où mais voici son code

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
16
17
18
19
Sub ExporterUnUserform() 'Par SilkyRoad
ThisWorkbook.VBProject.VBComponents("UserForm1").Export "C:\PFC.frm"
End Sub
 
Sub ExporterTousLesUserforms() 'Par SilkyRoad
Dim LaForm
    For Each LaForm In ThisWorkbook.VBProject.VBComponents
        If LaForm.Type = 3 Then ThisWorkbook.VBProject.VBComponents(LaForm.Name).Export "D:\xls\" & LaForm.Name & ".frm"
    Next
End Sub
 
Sub ImporterTousLesUserformsDunRépertoire()  'd'après SilkyRoad
Dim NomFich
    NomFich = Dir("D:\xls\*.frm")
    Do While NomFich <> ""
        Application.VBE.ActiveVBProject.VBComponents.Import (NomFich)
        NomFich = Dir
    Loop
End Sub

J'ai un peu modifié le dernier... Tu verras
Pour exporter feuilles et modules, tu mets une restriction sur le type qui ne doit pas être celui d'une feuille de calculs
Je dis ça dans une minute
A+

[XineMA]

donc je dois laisser tomber le 'MERGE' ??

Dans l'import export cela veut dire que

1° je dois d'abord exporter tout les fichiers (.frm, *.bas. *.cls)
et 2° les importer dans le 2ème fichier excel
?

[ouskel'n'or]

Voilà

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ExporterFrmEtModule()
Dim LeFich
    For Each LeFich In ThisWorkbook.VBProject.VBComponents
        Select Case LeFich.Type
            Case 1 'Modules
                ThisWorkbook.VBProject.VBComponents(LeFich.Name).Export "D:\MesMacros\" & LeFich.Name & ".bas"
            Case 2 'Modules de classe
                ThisWorkbook.VBProject.VBComponents(LeFich.Name).Export "D:\MesMacros\" & LeFich.Name & ".cls"
            Case 3 'frm
                ThisWorkbook.VBProject.VBComponents(LeFich.Name).Export "D:\MesMacros\" & LeFich.Name & ".frm"
        End Select
    Next
End Sub

Testé
Pour importer, tu as le code à adapter
Le type des feuilles de calculs est 100
A+

[ouskel'n'or]

Je réponds à ta question :

1° je dois d'abord exporter tout les fichiers (.frm, *.bas. *.cls)
et 2° les importer dans le 2ème fichier excel

Oui, c'est le plus rapide.
A+

PS - Pour tester, je viens d'exporter en quelques secondes 43 objets dans le rep MesMacros

[XineMA]

nickel impec, super

Pour la rapidité je ne m'inquiétais pas mais je voulais éviter des fichiers qui trainent

Un méga merci en tout ca

Xine

[XineMA]

J'ai pensé à une autre facon.

Pq pas copier le component Form d'un VBAprojet à un autre ?

Est-ce faisable?

Je cherche et je reviens