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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.


Voici ce que j'ai fais :

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
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.