XL 2013 Copier onglet dans un nouveau classeur (VBA)

[yassinovski2016]

Bonjour à tous,

dans l'exemple ci-joint je veux exporter l'onglet dans un nouveau classeur sans formules, sans bouton macro et sans codes VBA
le noms et la couleur de l'onglet seront les mêmes que ceux d'origine
le nom du classeur sera le nom de l'onglet + la date qui se trouve dans la dernière partie de la cellule E1 c'est a dire le nom du classeur dans cet exemple sera CAP Congés (MENS) 06-2016
supprimer les cellules D34 et D35 de l'onglet copié tout en sachant que ces cellules sont variables et leur emplacement peut être dans D39 et D40 ou même D88 et D89, cela dépend des lignes du tableau qui est variable dans mon classeur d'origine.

Merci d'avance

 

[job75]

Bonsoir,

Pas bien compliqué :

Sub Exporter()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Copy
With ActiveWorkbook.Sheets(1)
  .DrawingObjects.Delete
  .UsedRange = .UsedRange.Value
  With .[A6].CurrentRegion
    .Rows(.Rows.Count + 1).EntireRow.Resize(100).Delete
  End With
  .Parent.SaveAs ThisWorkbook.Path & "\" & .Name & Right(.[E1], 8), 51
  .Parent.Close
End With
End Sub

Fichier joint.

Bonne nuit.

 

[yassinovski2016]

Merci beaucoup job c'est ce que je cherchais

Cordialement