[VBA-E] MergeWorkbook de 2 excel

Version imprimable

12/02/2007, 15h44
XineMA

[VBA-E] MergeWorkbook de 2 excel

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

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

Code:

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+

12/02/2007, 16h06
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
?

Voilà

Code:

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+

12/02/2007, 16h08
ouskel'n'or

Je réponds à ta question :

Citation:

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 ;)
12/02/2007, 16h56
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
15/02/2007, 13h31
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
15/02/2007, 14h08
ouskel'n'or

C'est de l'import d'un fichier dans un projet dont il s'agit, pas d'une simple copie
15/02/2007, 14h13
XineMA

ben le but est une copie ou alors je me suis mal exprimée dans mon 1er post.

Mais l'export/Import fonctionne :)