Supprimer ou remplacer Macro dans classeur Perso

[TheProdigy]

Bonjour,

Je voulais savoir comment supprimer ou simplement remplacer une macro dans Classeur perso.

Si klk un pourrait m'expliquer cette histroire de Marco perso m'a toujours complexé.

Merci.

 

[tbft]

Re : Supprimer ou remplacer Macro dans classeur Perso

Bonjour

Je sais que l'on peut modifier le texte d'une macro à l'aide d'une autre macro...
Je t'invite à faire des recherches sur le site : il y en a...
Je les ai déjà utilisé...
Bon courage

 

[Pierrot93]

Re : Supprimer ou remplacer Macro dans classeur Perso

Bonjour,

dans l'éditeur vba, dans la fenêtre "project vbaProject", tu cherches le projet nommé "PERSO.xls", tu regardes dans les modules la macro qui t'interresse...

Tu peux également y accéder par Excel => barre de menu Excel => Outils Macro => macros, tu selectionnes le classeur Perso et la macro concernée et modifier ou supprimer, selon le cas...

bon après midi
@+

 

[tbft]

Re : Supprimer ou remplacer Macro dans classeur Perso

Re je viens de retrouver le bout de code qui m'a permis de m'amuser

Supprimer une procedure Workbook_Open par macro
*********************************************
A chaque ouverture du classeur contenant la macro , une copie du document est créée , expurgée de la procédure Workbook_Open

Private Sub Workbook_Open()
Dim Debut As Integer, Lignes As Integer
'enregistrement du nouveau classeur
Thisworkbook.Saveas Filename:='C:\\excel\\enregistrement ' & Format(Time, 'hh mm ss') & '.xls'
'suppression de la procedure Workbook_Open
With Thisworkbook.VBProject.VBComponents('Thisworkbook' ).codemodule
Debut = .Procstartline('Workbook_Open', 0)
Lignes = .Proccountlines('Workbook_Open', 0)
.Deletelines Debut, Lignes
End With
'sauvegarde modification
Thisworkbook.Save
End Sub


Supprimer la macro nommée 'MaMacro' dans le 'module3'
**************************************

Sub supprimerUneMacroPrecise()
Dim Debut As Integer, Lignes As Integer

With ThisWorkbook.VBProject.VBComponents('Module3').Cod eModule
Debut = .ProcStartLine('MaMacro', 0)
Lignes = .ProcCountLines('MaMacro', 0)
.DeleteLines Debut, Lignes
End With
End Sub


Supprimer un module
******************

Sub supprimerUnModule()
With ThisWorkbook.VBProject.VBComponents
.Remove .Item('Module2')
End With
End Sub

Par contre il faut modifier la configuration d'excel afin qu'il accepte vba comme editeur approuvés. mais cela dépend de la version que t'utilise..


Oups : j'ai du répondre à coté de la plaque....
Bonjour Pierrot