Discussion :

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

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

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 :

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

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 :

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

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 :

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

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]

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

[vpovpo]

bonjour à tous,
C'est ici que j'ai trouvé il y a 2 ans comment exporter et importer des objets VBA pour mettre à jour les sources d'un Classeur pour un utilisateur.
Depuis j'ai trouvé quelques astuces à savoir, je vous fais part ->
http://www.developpez.net/forums/d98...s/#post7177716

J'ajoute qu'on n'est pas obligés, à l'export, de faire comme Excel et de donner l'extension "cls" et pour les modules de classe (code = 2) et pour les feuilles Excel (code = 100). Pour les feuilles il vaut mieux mettre "sht" (comme sheet) par exemple. Ceci a l'avantage de pouvoir faire la différence entre ces 2 objets lors de l'import.

Cette différence est utile si on se propose de faire un Export/Import de toutes les sources d'un classeur, car un module de classe peut être traité à l'import avec .Remove/.Import, tandis que pour les feuilles, qui contiennent et des données (qu'on veut pas toucher lors de l'import) et du code (qu'on veut mettre à jour), on doit passer par .CodeModule.

Avec .CodeModule on peut effacer tout le code attaché à la feuille

Code :

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

1
2
Set VBComp = ThisWorkbook.VBProject.VBComponents(Nom)
VBComp.CodeModule.DeleteLines 1, VBComp.CodeModule.CountOfLines

et le remplacer avec le code contenu dans le fichier de l'export (*.sht, justement)

Code :

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

VBComp.CodeModule.AddFromFile ("Sheet1.sht")

Dernier détail, essentiel: afin que .CodeModule.AddFromFile ("Sheet1.sht") marche il faut d'abord éliminer de ce fichier les lignes en début de fichier:

Code :

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

1
2
3
4
5
VERSION ....
BEGIN
  ...
  ...
END

a+