[R]macro pour supprimer une autre macro

[brice59]

Bonjour,

Je recherche une macro pour supprimer une macro sur le même document.

Qui sait comment faire ?

Merci

voici à la réponse....

Dim awi
Dim awcl As Integer
On Error Resume Next
Set awi = ActiveDocument.VBProject.VBComponents.Item(1)
awcl = awi.CodeModule.CountOflines
awi.CodeModule.DeleteLines A,B   ==> 'il faut remplacer le A par la 1ère ligne et le B par la dernière ligne à supprimer, pensez à supprimer la macro de suppression en même temps <==
Set awi = Nothing ' Release the object

 

[Dranreb]

Re : macro pour supprimer une autre macro

Bonjour
Cochez la référence "Microsoft Visual Basic for Application Exensibility 5.n"
pour avoir les types de donnéees et l'aide en ligne appropriée à ce genre de manip
Ainsi CoModC ci dessous peut être déclaré As CodeModule. Ça supprime NbLC lignes à partir de la LC:

CoModC.DeleteLines LC, NbLC

J'ai même dans un truc une fonction qui retourne un CodeModule:

Function CoModSrc(ByVal Feui As Worksheet) As CodeModule
On Error Resume Next
Set CoModSrc = ClassSrc(Feui).VBProject.VBComponents(Feui.[Module].Value).CodeModule
If Err Then MsgBox "Le module """ & Feui.[Module].Value & """ est introuvable dans """ _
   & Feui.[Class].Value & """.", vbCritical, "Aïe !": End
End Function

Ceci peut aussi vous servir pour trouver la procédure à supprimer, extrait de l'aide:

ProcBodyLine, propriété


Renvoie la première ligne d'une procédure.

Syntaxe

object.ProcBodyLine(procname, prockind) As Long

La syntaxe de la propriété ProcBodyLine comprend les éléments suivants :

Élément Description
object Expression d'objet qui prend la valeur d'un objet figurant dans la liste Application.
procname Valeur de type String contenant le nom de la procédure.
prockind Indique le type de procédure à localiser. Étant donné que les procédures de propriété possèdent des représentations multiples dans le module, vous devez indiquer le type de procédure à localiser. Toutes les procédures autres que les procédures de propriétés (telles que, par exemple, les procédures Sub et Function) utilisent la constante vbext_pk_Proc.



Vous pouvez utiliser l'une des constantes suivantes pour l'argument prockind :

Constante Description
vbext_pk_Get Spécifie une procédure qui renvoie la valeur d'une propriété.
vbext_pk_Let Spécifie une procédure qui affecte une valeur à une propriété.
vbext_pk_Set Spécifie une procédure qui affecte une référence à un objet.
vbext_pk_Proc Spécifie toutes les procédures autres que les procédures de propriétés.

S'applique à un CodeModule
Voir aussi ProcOfLine permettant de vérifier si la ligne spécifiée appartient toujours à la procédure à supprimer (ProcKind à respécifier aussi chaque fois).
Cordialement

 

[kiki29]

Re: macro pour supprimer une autre macro

Salut, un excellent tuto sur la chose Visual Basic Editor

 

[brice59]

Re : macro pour supprimer une autre macro

si on peut supprimer les macro en fonction des lignes, comment je peux faire pour supprimer les macros entre la ligne 25 et 150 (par exemple) ?

 

[Dranreb]

Re : macro pour supprimer une autre macro

Donc:

CoMod.DeleteLines 25, 125

Avec CoMod : le CodeModule concerné

 

[brice59]

Re : macro pour supprimer une autre macro

Donc:

CoMod.DeleteLines 25, 125

Avec CoMod : le CodeModule concerné

il me met une erreur "objet recquis"
c'est parce que je n'ai pas mis le code module, mais ou est ce que je trouve le nom ???

et petite précision, c'est sur word

 

[Dranreb]

Re : macro pour supprimer une autre macro

Le nom d'un CodeModule c'est très exactement le nom que porte ce module dans le projet Visual Basic qui le contient. Ça doit être pareil dans Word, même si la philosophie d'implantation diffère un peu. Du moment qu'on peut trouver le module par l'éditeur VBA on peut naviguer de même dans le VBProject.VBComponents avec les mêmes noms. Et un document word a certainement une propriété VBProject qui représente son projet VBA.

 

[brice59]

Re : macro pour supprimer une autre macro

je dois être méga nul, je ne vois pas du tout comment faire.

Le nom de ma macro c'est "sub macro 2()" (classique)
mais je ne comprends pas du tout comment faire.

 

[Dranreb]

Re : macro pour supprimer une autre macro

Le nom de ma macro c'est "sub macro 2()" (classique)
mais je ne comprends pas du tout comment faire.

Il faut isoler le projet VBA puis le module qui la contient : Set CoMod = DocumentWord.VBProject.VBComponents(NomDuModule).CodeModule
Ainsi que vous le feriez en quelque sorte dans l'explorateur de projets VBA en cliquant sur le module: tout comme le code vous est alors présenté dans la fenêtre, il vous sera, là, accessible dans CoMod.

 

[brice59]

Re : macro pour supprimer une autre macro

bon, j'ai tenté cette solution , mais rien de fait.


J'ai trouvé un autre code à insérer dans la macro même.

Dim awi
Dim awcl As Integer
On Error Resume Next
Set awi = ActiveDocument.VBProject.VBComponents.Item(1)
awcl = awi.CodeModule.CountOflines
awi.CodeModule.DeleteLines A,B 'il faut remplacer le A par la 1ère ligne et le B par la dernière ligne à supprimer, pensez à supprimer la macro de suppression en même temps
Set awi = Nothing ' Release the object

 

[kiki29]

Salut,as-tu lu le tuto dont le lien a été donné plus haut ? sans doute que non car tout y est