Supprimer tous les modules (d'un fichier donné)

[ouskel'n'or]

Je sais, ce code a déjà été donné mais je ne l'ai pas retrouvé.
Ici, SilkyRoad donne un code approchant mais pas celui-ci.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub ListerLesModulesAeffacer()
Dim CL1 As Workbook
Dim CL2 As Workbook
Dim VBComp
    Set CL1 = ThisWorkbook 'Le fichier contenant ces macros
    Set CL2 = Workbooks("FichierDontLesModulesDoiventEtreEffacés.xls")
    Set VBComp = CL2.VBProject.VBComponents
    With VBComp
        For Each VBComp In CL2.VBProject.VBComponents
            If VBComp.Type = 1 or VBComp.Type = 3 Then _
               SupprimerLeModule CL2, VBComp.Name
        Next VBComp
    End With
    Set CL2 = Nothing
    Set VBComp = Nothing
    CL1.close false 'Fermeture sans enregistrer du fichier contenant ces macros
End Sub
 
Sub SupprimerLeModule(CL2, NomModule)
    With CL2.VBProject
        .VBComponents.Remove .VBComponents(NomModule)
    End With
End Sub

Où VBComp.Type = 1 => Les modules
et VBComp.Type = 3 => Les Userforms

[wilfried_42]

Bonjour ouskel'nor

Chapeau pour ce code, mais ce que je cherche c'est l'inverse

acceder au differents modules, y ajouter des lignes, voir ajouter un module s'il n'existe pas

Merci de ton aide, bon week end

wilfried

[ouskel'n'or]

Peut-être trouveras-tu une partie de ton bonheur ici
Pour l'insersion de lignes de code, la solution a été donnée plusieurs fois sur le forum VBA Excel et ta question aurait plutôt sa place sur ce forum
Ceci dit, j'ajouterai plutôt la solution à la discussion sur l'export ou l'import de module qu'ici.
Bonne recherche

Lien pour exporter / importer les modules d'un classeur
Lien pour insérer du code dans une macro existante