XL 2013 macro onglets et excel

anebrildor

XLDnaute Nouveau
bonjour a tous,

j ai des fichiers excel contenants certains plusieurs dizaine d onglets

mon objectif de se sortir un fichier excel par onglet.

j ai deja fouille sur le forum , mais les sujets etait assez anciens et je n arrive pas faire fonctionner les macros proposees

nb sous excel 2013

merci par avance
 
Solution
Bonjour Anebrildor,
Un essai en PJ inspiré de
avec :
VB:
Sub CopieFeuilles()
' Copie chaque feuille or Entete dans des fichiers séparés.
' Les fichiers sont sauvegardés au même niveau que le fichier courant.
' Chaque fichier est appelé par le nom de la feuille.
Dim WB As Workbook, NomFichier As String, Chemin As String
Application.ScreenUpdating = False
For Each Sh In Worksheets
    If Sh.Name <> "Entete" Then ' Feuille Entete non concernée
        Chemin = ThisWorkbook.Path & "\"
        NomFichier = Chemin & Sh.Name & ".xlsx"
        Set WB = Workbooks.Add(xlWBATWorksheet)...

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Anebrildor,
Un essai en PJ inspiré de
avec :
VB:
Sub CopieFeuilles()
' Copie chaque feuille or Entete dans des fichiers séparés.
' Les fichiers sont sauvegardés au même niveau que le fichier courant.
' Chaque fichier est appelé par le nom de la feuille.
Dim WB As Workbook, NomFichier As String, Chemin As String
Application.ScreenUpdating = False
For Each Sh In Worksheets
    If Sh.Name <> "Entete" Then ' Feuille Entete non concernée
        Chemin = ThisWorkbook.Path & "\"
        NomFichier = Chemin & Sh.Name & ".xlsx"
        Set WB = Workbooks.Add(xlWBATWorksheet)
        ThisWorkbook.Sheets(Sh.Name).Copy Before:=WB.Sheets(1)
        WB.SaveAs Filename:=NomFichier, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        WB.Close SaveChanges:=True
    End If
Next Sh
Sheets("Entete").Select
End Sub
 

Pièces jointes

  • EssaiSaveSheet.xlsm
    18 KB · Affichages: 12

Discussions similaires

Statistiques des forums

Discussions
311 716
Messages
2 081 848
Membres
101 826
dernier inscrit
dododu89