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.

Salut,

la piste de la :faq: pour la suppression de lignes est une bonne base a mon avis :

http://vb.developpez.com/faqvba/?page=3.6#deletemacro

Code:

---

.DeleteLines Debut, Lignes

---

Bonjour,

Désolé pour cette réponse tardive et merci pour tes conseils. ;)

Le code final en intégrant ta remarque est donc le suivant :

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 30 31 32

Private Sub SubImportClasseurCode( _ ByVal Wb As Workbook, _ ByVal ModuleName As String, _ ByVal ImportFromFile As String, _ ByVal BoolImportPartiel As Boolean)   ' imports code to ModuleName in wb from a textfile named ImportFromFile Dim VBCM As CodeModule   Dim IntDeb As Integer Dim IntFin As Integer   On Error Resume Next   If Dir(ImportFromFile) = "" Then Exit Sub Set VBCM = Wb.VBProject.VBComponents(ModuleName).CodeModule If Not VBCM Is Nothing Then VBCM.AddFromFile ImportFromFile   VBCM.DeleteLines 1, 6 'Je prends les 7 premières lignes End If Set VBCM = Nothing   On Error GoTo 0   Sortie:   End Sub

---

De cette manière il n'y a plus besoin de désactiver l'option explicit comme le pensais initialement.

Par ailleur ça va pouvoir m'aider pour autre chose.

Cordialement.

Marco.

Ok,
super, si tu estimes cette question resolue, pense au tag :resolu: :ccool: