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 :
Et en plus il m'ajouet l'option "Option Explicit" avant.
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
Voici ce que j'ai fais :
Comment puis-je m'en sortir s'il vous plait ?
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
Par avance merci.
Marco.
Partager