XL 2019 Demande de macro enregistrer excel

[krisandge]

Bonjour, J'ai un fichier excel composé de 6 onglet.
Je souhaite avoir une macro qui créérai une copie de ce fichier en.xls mais avec les onglets 1-2-4-5-6 et pas le troisième onglet.

De plus, je voudrai que la copie créé soit sans aucune macro car mon fournisseur ne peut les lire.
je suis sous la dernière version d'excel

Merci pour vos aides et bon confinement

 

[Jacky67]

Bonjour, J'ai un fichier excel composé de 6 onglet.
Je souhaite avoir une macro qui créérai une copie de ce fichier en.xls mais avec les onglets 1-2-4-5-6 et pas le troisième onglet.

De plus, je voudrai que la copie créé soit sans aucune macro car mon fournisseur ne peut les lire.
je suis sous la dernière version d'excel

Merci pour vos aides et bon confinement

Bonjour,
Une proposition en adaptant le chemin , avec ce code dans la PJ

Sub ExtractionJJ()
    Dim Chemin$, Fichier$
    Application.ScreenUpdating = False
    Chemin = ActiveWorkbook.Path & "\"     ' ** adapter le chemin **
    Fichier = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
    Application.DisplayAlerts = False
    ThisWorkbook.Sheets.Copy
    ActiveWorkbook.SaveAs Filename:=Chemin & Fichier, FileFormat:=51    'XLSX
    ActiveWorkbook.Close , True
    Workbooks.Open Filename:=Chemin & Fichier & ".xlsx"
    ActiveWorkbook.Sheets(3).Delete
    ActiveWorkbook.Sheets.Copy
    ActiveWorkbook.SaveAs Filename:=Chemin & Fichier, FileFormat:=56    ' Xls
    ActiveWorkbook.Close , False
    Workbooks(Fichier & ".xlsx").Close , False
    Kill (Chemin & Fichier & ".xlsx")
    Application.DisplayAlerts = True
End Sub

**Modifié