Discussion :

[susaita]

Bonjour @ tous,
dans le fichier ci-joint j'ai un code que j'ai lié au bouton exporter de l'onglet MO Qte je veux le modifier pour copier juste trois onglets (MO Qte, BETON Qte, ACIER Qte)
et en plus supprimer tout les boutons qui se trouvent dans les onglets (MO Qte, BETON Qte, ACIER Qte)

Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Exporter()
Dim chemin
chemin = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs chemin & "DS.xlsm"
With Workbooks.Open(chemin & "DS.xlsm")
  .Sheets(1).DrawingObjects.Delete
  .SaveAs chemin & "DS.xlsx", 51
  .Close
End With
Kill chemin & "DS.xlsm"
End Sub