XL 2013 Exporter Onglets dans un nouveau classeur (VBA)

job75

XLDnaute Barbatruc
Bonsoir susaita,

Pour rompre toutes les liaisons dans le fichier créé :
Code:
Sub Exporter()
Dim s As Object, lien, i&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(Array("MO Qte", "BETON Qte", "ACIER Qte")).Copy
With ActiveWorkbook
  For Each s In .Sheets: s.DrawingObjects.Delete: Next
  lien = .LinkSources
  If Not IsEmpty(lien) Then
    For i = 1 To UBound(lien)
      .BreakLink lien(i), xlExcelLinks
    Next
  End If
  .SaveAs ThisWorkbook.Path & "\DS", 51
  .Close
End With
ActiveCell.Activate
End Sub
A+
 

Discussions similaires


Haut Bas