XL 2019 Demande de macro enregistrer excel

krisandge

XLDnaute Nouveau
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 :p
 

Jacky67

XLDnaute Barbatruc
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 :p
Bonjour,
Une proposition en adaptant le chemin , avec ce code dans la PJ
VB:
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é
 

Pièces jointes

  • Classeur1.xlsm
    23.5 KB · Affichages: 2
Dernière édition:

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
283 605
Messages
1 852 922
Membres
151 980
dernier inscrit
Kara2579
Haut Bas