supprimer une macro

[asper]

Bonsoir,

Voilà j'ai une macro(1) quis se déclenche à l'activation de la feuille. Jusqu'ici tout va bien........

Cette feuille je la copie par macro(2) dans un autre classeur. Lorsque la manoeuvre se fait j'ai la macro(1) de la feuille copiée qui plante, bien sûre, car elle ne trouve pas ce que je lui demande.

Comme cette macro(1) n'est pas nécessaire dans le fichier de destination j'aimerai la supprimer. Comment faire pour supprimer cette macro(1) dans la feuille copiée....

Evidemment je veux garder la macro dans le classeur source.

J'espère avoir été clair........

Merci pour vos idées et contributions

[samimi94]

Bonsoir,

Pour cela lances l'editeur VBA (Alt+F11) et regardes le module qui te dérange et tu le vires.

Sinon tu vas dans Outils=>Macro=>Macros et tu sélectionnes celle que tu ne veux pas et cliques à droite sur supprimer.

Voilou.

[asper]

merci pour le tuyau, mais je voulais le faire automatiquement au moment ou je copie la feuille dans le fichier de destination avec la macro(2)

Si vous avez d'autre idées je suis preneur

[samimi94]

Re,

Pour "sauvegarder sous" sans la macro :

Sub SaveAsWithoutMacros()
Dim NomSource$, CheminDest$, NomDest$
Dim VBC As Object

NomSource = "TestSaveAs.xls" 'mets ce que tu veux
CheminDest = "C:" 'mets ce que tu veux
NomDest = "test.xls" 'mets ce que tu veux

Workbooks(NomSource).SaveAs CheminDest & NomDest

With ActiveWorkbook.VBProject
'cette partie du code est de Laurent Longre
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC 'LL
End With

Application.Quit
SendKeys "%O"

End Sub

[myDearFriend!]

Bonsoir asper, samimi94,

A toutes fins utiles, tu peux également jeter un oeil sur :
[VBA] Comment copier une feuille sans son code VBA ?

Cordialement,

[asper]

merci pour ton aide mais cela ne fonctionne pas car cela plante avant que je puisse l'enregistrersous.

En fait Il faut que l'on puisse la supprimer avant que la feuille devienne active

Merci

[samimi94]

Bonsoir,

Merci MydearFriend! pour cette solution

Bonne soirée

[asper]

Super je l'adapte à mon code

Merci à tous pour votre aide

[Staple1600]

Bonsoir à tous


Un petit essai de copie d'une feuille sans les macros

Sub test()
Dim source As Worksheet
Set source = ActiveSheet
source.Cells.Copy
Worksheets.Add
Cells.PasteSpecial xlPasteAll
Application.CutCopyMode = xlCopy
Range("A1").Select
ActiveSheet.Name = "Copie de " & source.Name
source.Activate
End Sub