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
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