Supression de code VBA par du code VBA
Bonjour,
La question du jour est la suivante : est-il possible de supprimer du code VBA par du code VBA ?
Ma problématique est liée au fait que j'essaye d'importer le code VBA contenu dans des feuilles et le ThisWorkbook et qu'il me fait apparaître une morceau de code qui normalement est caché...
ce sont les lignes suivantes :
Code:
1 2 3 4 5 6
|
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
End |
Et en plus il m'ajouet l'option "Option Explicit" avant. :aie:
Voici ce que j'ai fais :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
Private Sub SubImportModuleCode( _
ByVal Wb As Workbook, _
ByVal ModuleName As String, _
ByVal ImportFromFile As String)
' imports code to ModuleName in wb from a textfile named ImportFromFile
Dim VBCM As CodeModule
On Error Resume Next
'TODO : désactiver le "Option Explicit"
If Dir(ImportFromFile) = "" Then Exit Sub
Set VBCM = Wb.VBProject.VBComponents(ModuleName).CodeModule
If Not VBCM Is Nothing Then
VBCM.AddFromFile ImportFromFile
Set VBCM = Nothing
End If
'TODO : résactiver le "Option Explicit"
On Error GoTo 0
End Sub |
Comment puis-je m'en sortir s'il vous plait ?
Par avance merci.
Marco.