Bonjour,

J’ai écrit une série de codes qui transforme un fichier de base et dont l’issue est de lénregistrer sous un autre nom, puis de tout fermer.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
 
Sub Save_Result()
 
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "NOM_FICHIER"
 
End Sub
puis pour finir........


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
 
Sub FermerClasseurExcel()
 
 Application.DisplayAlerts = False
 ActiveWorkbook.Close
 Application.Quit
 
End Sub

Je souhaiterais que ce fichier renommé n’ait plus les macros du fichier de base. Du genre à « delete maintenant toutes les macros, enregistre sous un autre nom et ferme » ou quelque chose qui y ressemble.

Cela me semble contre toute logique, un peu comme les messages qui s’autodétruisent dans les James Bond, mais peut être il y a t’il une fonction ?

Merci par avance