Comment supprimer une macro via une macro ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comment supprimer une macro via une macro ?

soif de connaissance

Hello,

Petite question, sous excel, je doit dupliquer une feuille qui contient du code et des données, et donc je fait un vulgaire copier coller basique.

Comment faire ensuite pour virer sur la feuille collée la partie code qui ne me servira plus ?

L'interet est que, ensuite cette feuille est transmise par mail et le destinataire, ne soit pas emmerdé avec la fenetre de sécurité d'ouverture macro.

J'ai déjà trouvé quelque scripts, mais ils effacent aussi les modules présent dans mon workbook.

Merci !

Message cité 1 fois

Publicité

galopin01

bonsoir,
Je pense que ce lien devrait faire l'affaire.
A+

Message cité 1 fois

soif de connaissance

galopin01 a écrit :

bonsoir,
Je pense que ce lien devrait faire l'affaire.
A+

Hélas non, car il efface toutes les macros du projet, y compris celles des modules.

soif de connaissance

:cry:

Message édité par soif de connaissance le 20-09-2006 à 16:52:51

DamienCYS

soif de connaissance a écrit :

L'interet est que, ensuite cette feuille est transmise par mail et le destinataire, ne soit pas emmerdé avec la fenetre de sécurité d'ouverture macro.

Salut, je fais ca aussi.
ce que je fais c'est créée une nouvelle feuille puis copier coller d'une feuille dans l'autre et pas de soucis de macro

Message cité 1 fois

soif de connaissance

DamienCYS a écrit :

Salut, je fais ca aussi.
ce que je fais c'est créée une nouvelle feuille puis copier coller d'une feuille dans l'autre et pas de soucis de macro

Hélas pour moi oui, car la feuille d'origine contient un poil de code :

Private Sub CommandButton1_click()
Sheets("auto" ).Select
Call depart
End Sub

C'est juste ces 4 lignes que je voudrais supprimer.

Message cité 1 fois

0x90

→

Utilise grep [:chrisbk]

Message cité 1 fois

---------------
Me: Django Localization, Yogo Puzzle, Chrome Grapher, C++ Signals, Brainf*ck.

soif de connaissance

0x90 a écrit :

Utilise grep [:chrisbk]

kécéssé ?

kiki29

Option Explicit

Sub SauverSansMacros()
Dim Chemin As String
Chemin = ThisWorkbook.Path & "\" & "Backup.xls"
ThisWorkbook.Sheets.Copy
ActiveWorkbook.SaveAs Chemin
ThisWorkbook.Close False
End Sub

Message cité 1 fois
Message édité par kiki29 le 21-09-2006 à 05:41:11

soif de connaissance

kiki29 a écrit :

Option Explicit

Sub SauverSansMacros()
Dim Chemin As String
Chemin = ThisWorkbook.Path & "\" & "Backup.xls"
ThisWorkbook.Sheets.Copy
ActiveWorkbook.SaveAs Chemin
ThisWorkbook.Close False
End Sub

Non, car effacera toutes les macros de mon classeur, ce qu'il ne faut pas, je veux juste virer une macro sur une feuille précise

Publicité

DamienCYS

soif de connaissance a écrit :

Hélas pour moi oui, car la feuille d'origine contient un poil de code :

Private Sub CommandButton1_click()
Sheets("auto" ).Select
Call depart
End Sub

C'est juste ces 4 lignes que je voudrais supprimer.

C'est bien ce que je te dis essayes le code suivant :

Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Feuil1" ).Select
Cells.Copy
Sheets(Sheets.Count).Select
Cells.Select
ActiveSheet.Paste

Message cité 1 fois

kiki29

A adapter avec une gestion d'erreurs adéquate

Option Explicit

' la Macro à supprimer est nommée ToDelete dans module ModuleA
' Cocher Outils | Références Microsoft Visual Basic for Applications
Extensibility 5.3

Sub DelMacro()
Dim Debut As Long
Dim NbLignes As Long

With ThisWorkbook.VBProject.VBComponents("ModuleA" ).CodeModule
Debut = .ProcStartLine("ToDelete", vbext_pk_Proc)
NbLignes = .ProcCountLines("ToDelete", vbext_pk_Proc)
.deleteLines Debut, NbLignes
End With

End Sub

Message édité par kiki29 le 21-09-2006 à 11:44:53

soif de connaissance

DamienCYS a écrit :

C'est bien ce que je te dis essayes le code suivant :

Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Feuil1" ).Select
Cells.Copy
Sheets(Sheets.Count).Select
Cells.Select
ActiveSheet.Paste

Effectivement ça à l'air de marcher en modifiant la commande du copier coller de la feuille.

Merci !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Comment supprimer une macro via une macro ?

Sujets relatifs
Editer,modifier et supprimer des enregistrements dans datagrid	[vba excel] executer une macro sur un click
[VB/VBA/VBS] Macro Excel - nommer des cellules par lot	Supprimer retours à la ligne inutiles
Appeler une macro Word en C#	Supprimer un caractère dans une chaîne
macro excel	[Résolu] Macro supprimer une colonne
VBA - Macro supprimer ligne	Macro autoexec pour supprimer les lignes blanches
Plus de sujets relatifs à : Comment supprimer une macro via une macro ?

Page générée en 0.043 secondes