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
 

cp4

XLDnaute Impliqué
Bonsoir,

Quelle est ta version d'excel? Si 2007 ou plus, enregistre le fichier avec l'extension xlsx qui ne prend pas en charge les macros.
 

PIERRE02

XLDnaute Nouveau
Bonsoir
J’ai Excel 2013
J’ai remplacé l’extension XLS par XLSX
mais j’ai toujours un message me demandant d’enregistrer le fichier sans macro
 

cp4

XLDnaute Impliqué
juste après la ligne Application.ScreenUpdating = False
Application.DisplayAlerts = False

à la fin de la procédure tu les remets à True
 

Haut Bas