suppression des macros le message activer macro apparait encore

Bonjour,
Je copie une feuille après exécution de macro que j'envoie par mail.
Lors de la copie je supprime mes macros et mes boutons, mais quand j'ouvre la copie, Excel me demande si je veux activer les macros, alors que je n'en voie plus.
Avez vous une idée ?
Merci
Denis
voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

ThisWorkbook.Sheets("Diffusion").Copy   'Je nettoie le code With ActiveWorkbook With .VBProject.VBComponents(.Sheets(1).CodeName).CodeModule .DeleteLines 1, .CountOfLines End With End With   'je nettoie les boutons ActiveWorkbook.Sheets(1).Shapes("CommandButton1").Delete ActiveWorkbook.Sheets(1).Shapes("CommandButton2").Delete   Application.Dialogs(xlDialogSendMail).Show Mes_destinataires, Mon_objet

---

Bonjour

Il faut:
Supprimer tous les modules standard
Vider entièrement les modules des feuilles et du classeur
Supprimer les modules des userforms s'il y en a

S'il n'y a pas de macros affectées aux feuilles et au classeur, tu peux aussi, via une macro, copier les feuilles vers un nouveau fichier et envoyer celui-là.

Note que, en 2007, il suffit d'enregistrer le fichier en XLSX pour supprimer les macros.

Merci pour ce rappel,

Eh non je ne suis pas encore sur 2007,
donc le code de nettoyage complet de tous les codes du classeur est :
MERCI en tous cas pour la réponse.
Denis

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim VBC As Object With ActiveWorkbook.VBProject 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 End With

---

D'accord avec ton code...

Je n'imaginais pas qu'il se détruise lui-même, mais c'est apparemment le cas... :koi: