copier une feuille dans autre classeur en supprimant les macros

PIERRE02

XLDnaute Nouveau
Bonjour
Le programme ci-dessous me permet de copier un onglet d'un classeur à un autre en renommant le nouveau fichier avec une variable et en supprimant les liaisons du premier onglet. Par contre je n'arrive pas a supprimer les macros dans le second classeur. Une Idée ?? merci d'avance

Sub Archiver()
Dim Liaisons As Variant
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xls"
chemin = "C:\Users\essai\Documents\DATA\"
nomfichier = ActiveSheet.Range("C1") & extension

With ActiveWorkbook
.ActiveSheet.DrawingObjects(1).Delete

Liaisons = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If IsEmpty(Liaisons) = True Then Exit Sub
For LiaisonsTrouvee = 1 To UBound(Liaisons)
ActiveWorkbook.BreakLink _
Name:=Liaisons(LiaisonsTrouvee), _
Type:=xlLinkTypeExcelLinks
Next LiaisonsTrouvee

.SaveAs Filename:=chemin & nomfichier
.Close
End With

Application.ScreenUpdating = True

End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 794
Membres
101 817
dernier inscrit
carvajal