Bonjour

Je souhaite supprimer tous les modules d'un classeur, puis mettre d'autres module, le tout exécuté par une macro.

J'ai la macro qui supprime tous les modules du classeur:

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
20
21
Sub SupprimeTousLesModules()
'Outils/Macro/Sécurité/Editeurs approuvés et cocher Faire confiance au projet Visual Basic
Dim VBComp As Object
Dim VBComps As Object
 
Set VBComps = ActiveWorkbook.VBProject.VBComponents
 
For Each VBComp In VBComps
Select Case VBComp.Type
Case 100
If UCase(VBComp.Name) <> "THISWORKBOOK" Then 'supprimera uniquement sur ce fichier ouvert et activé
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End If
Case Else
VBComps.Remove VBComp
End Select
Next VBComp
 
End Sub
Mais je n'ai rien pour mettre tous les modules sauvegardés dans un répertoire et qui ont l'extension "bas"

L'idéal serait de mettre la macro "Supprime tous les modules" dans un classeur A, de mettre aussi tous les modules à copier dans ce même classeur A, et sur le classeur B ouvert et activé de pouvoir supprimer tous les modules et de les remplacer par ceux du classeur A sauf le module "Supprime tous les modules".

Merci