Supression de macro Excel et module en VBA [Trucs & Astuces]

**Sammy** · 14/10/2005, 14h40

Bonjour,

Dans un fichier Excel, je cherche à supprimer des macros et des modules d'un autre fichier Excel ...
J'avais comme point de départ la syntaxe suivante :
Workbook.delete("Macro 1") qui ne fonctionne pas.

Est-ce possible de le faire ?

Merci et bonne journée.

Sammy

**Sammy** · 14/10/2005, 16h55

L'objectif est de copier un fichier (certaines feuilles avec des listes déroulantes !) pour des clients en supprimant des macros et des feuilles que l'on ne souhaite pas diffuser .....

Merci pour votre aide,

Sammy

**SfJ5Rpw8** · 14/10/2005, 16h58

Envoyé par Sammy

Bonjour,

Dans un fichier Excel, je cherche à supprimer des macros et des modules d'un autre fichier Excel ...
J'avais comme point de départ la syntaxe suivante :
Workbook.delete("Macro 1") qui ne fonctionne pas.

Est-ce possible de le faire ?

Merci et bonne journée.

Sammy

tiens regarde cela :

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
Sub Macro1()
'
' Rajouter référence à "Microsoft visual basic for Application exten...
'
 Dim w As Workbook
 Dim d As VBComponent
 
 Set w = Workbooks.Open(Filename:="Classeur1.xls")
 For Each d In w.VBProject.VBComponents
   Debug.Print d.Name
   If d.Type = vbext_ct_StdModule Then  'vbext_ct_StdModule Then
        w.VBProject.VBComponents.Remove w.VBProject.VBComponents(d.Name)
   End If
 Next
 w.Close True
End Sub

**SilkyRoad** · 14/10/2005, 18h33

bonsoir

et pour supprimer uniquement une macro spécifique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'Supprimer la macro nommée "MaMacro" dans le "module3"
Sub supprimerUneMacroPrecise()
Dim Debut As Integer, Lignes As Integer
 
With ThisWorkbook.VBProject.VBComponents("Module3").CodeModule
Debut = .ProcStartLine("MaMacro", 0)
Lignes = .ProcCountLines("MaMacro", 0)
.DeleteLines Debut, Lignes
End With
End Sub

cordialement
michel

**SilkyRoad** · 15/10/2005, 06h13

bonjour Ouskel'n'or

je viens de tester avec Excel97 ( & Win98)

chez moi cela fonctionne sans probleme :
ProcStartLine et ProcCountLines sont reconnus . La macro est supprimée ...et il n'y a pas de trou dans le module ...;o)

peux tu refaire un essai apres avoir activé la reference "Microsoft Visual Basic for Applications Extensibility 5.3"

bon week end
michel