[VBA-E]Exporter / importer tous les modules et frm d'un projet [En attente]

[ouskel'n'or]

La question étant récurrente et connaissant la réponse...
Donc, très largement inspiré d'un code de SilkyRoad, mais ne l'ayant pas trouvé dans la FAQ, une solution pour exporter et importer tous les objets d'un projet VBA.

Pour exporter :

Code :

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

Attention : Les feuilles de calculs ont la même extension que les modules de classe (cls) (pas le même type). Je ne les placerais pas dans le même répertoire (...)

Pour importer :

Code :

1
2
3
4
5
6
7
8
Sub ImporterTousLesFichiersDunRépertoire()  '"d'après" SilkyRoad
Dim NomFich
    NomFich = Dir("D:\MesMacros\*.*")
    Do While NomFich <> ""
        Application.VBE.ActiveVBProject.VBComponents.Import (NomFich)
        NomFich = Dir
    Loop
End Sub

A toutes fins utiles

[tazamorte]

Personnellement dans ExporterFrmEtModules()

Code :

1
2
3
4
5
6
7
 
Dim strPath As String
 
strPath = "D:\MesMacros\"
If (RépertoireExiste(strPath) <> True) Then
            MkDir strPath
        End If

et

Code :

1
2
3
4
5
6
7
8
9
10
 
'-------------------------------------------------------
'Test L'existance d'un répertoire
'-------------------------------------------------------
Function RépertoireExiste(Chemin As String) As Boolean
 
    On Error Resume Next
        RépertoireExiste = GetAttr(Chemin) And vbDirectory
 
End Function

pour que cela soit un peu plus propre et éviter des erreurs betes et idem pour feuilles bien sur

[ouskel'n'or]

Tu as raison, surtout pour ceux... qui ne savent jamais où ils ont rangé leurs affaires

Quelques liens utiles
Lien pour insérer du code dans une macro existante
Lien pour supprimer tous les modules d'un classeur

[illight]

Ton premier lien ne marche plus Ousk

[ouskel'n'or]

Envoyé par illight

Ton premier lien ne marche plus Ousk

C'est bien dommage !

[fred65200]

bonjour à tous,
sur le même sujet

http://www.developpez.net/forums/sho...d.php?t=462051

cordialement