XL 2013 macro onglets et excel

[anebrildor]

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

 

[sylvanu]

Bonjour Anebrildor,
Un essai en PJ inspiré de

Enregistrer une feuille dans un nouveau classeur avec un nom spécifique sous VBA

Bonjour a tous et a toutes Je n'arrive pas a copier une feuille de mon classeur et la copier dans un nouveau classe, dans un répertoire spécifique, tout en lui donnant le nom d'une cellule. Mon classeur se nomme feuille saisie_v3 et ma feuille que je souhaite copier se nomme CoupeVIM. Voila...

www.excel-downloads.com

avec :

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

 

[anebrildor]

bonjour Sylvanu

merci pour le retour,
je vais tester et reviens faire mon retour

 

[anebrildor]

re- bonjour Sylvanu
ca fonctionne parfaitement
merci pour ton aide