treza88
XLDnaute Occasionnel
Bonjour a tous,
j'utilise le code si dessous pour remplacer deux modules dans certains de mes fichiers pour faire une mise ajour, mais le soucis c'est que quand j'importe le module1 il est renommé en module11 et le module4 en module41.
Pourtant je supprime bien le module1 et module4 avant l'importation, alors pourquoi me le renomme t il ainsi?
Si quelqu'un de vous a la réponse, merci d'avance
j'utilise le code si dessous pour remplacer deux modules dans certains de mes fichiers pour faire une mise ajour, mais le soucis c'est que quand j'importe le module1 il est renommé en module11 et le module4 en module41.
Pourtant je supprime bien le module1 et module4 avant l'importation, alors pourquoi me le renomme t il ainsi?
VB:
Sub ImportModule_1_4()
Dim Fichier As String, Repertoire As String
Dim Wb As Workbook
Dim i As Byte
Application.ScreenUpdating = False
With ActiveWorkbook.VBProject.VBComponents
.Remove .Item("Module1")
.Remove .Item("Module4")
End With
Set Wb = ActiveWorkbook
'----------------------------------
'La procédure ne gère pas les erreurs si le nom des modules existe déja
'dans les classeurs.
Wb.VBProject.VBComponents.Import "C:\mod\Module 1_4\Module1.bas"
Wb.VBProject.VBComponents.Import "C:\mod\Module 1_4\Module4.bas"
Application.ScreenUpdating = True
MsgBox "Opération terminée."
End Sub
Si quelqu'un de vous a la réponse, merci d'avance
Dernière édition: