Supression de macro Excel et module en VBA

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

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

Citation:

---

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:

---

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

---

:roll: :wink:

bonsoir

et pour supprimer uniquement une macro spécifique

Code:

---

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

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

Merci à tous ...... Ca fonctionne au poil ....

Bonne semaine

Alain.

Merci, SilkyRoad, j'ai fait ce que tu as dit, c'est magic ! :lol:

A+