Discussion :

[Denis_67]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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.

[Denis_67]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

D'accord avec ton code...

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