bonjour voila j ai le code suivant qui me permet de faire une etraction de plusieurs onglets d un fichier excel vers un fichier par onglet le souci
c est qu il me creer bien un fichier mais en meme temps dedans me met un autre onglet feuil1 et je voudrais aussi rajouter une petite fonction qui me ferait
l affichage en aperçu de saut de page
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub saveOnglet()
Dim ws As Worksheet
Dim newWk As Workbook
 
    For Each ws In ThisWorkbook.Worksheets
        Set newWk = Workbooks.Add(xlWBATWorksheet)
        ws.Copy newWk.Sheets(1)
        newWk.SaveAs (ws.Name & ".xls")
        newWk.Close
        Set newWk = Nothing
    Next ws
 
End Sub
quand je creer une macro avec le saut de page ca me donne ça

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
  Set WkClasseur = Workbooks.Open(Filename:=VarListeFichiers(Ctr))
        Set WsFeuille = WkClasseur.Worksheets(1)
            WsFeuille.Move before:=WkFinal.Worksheets(1)
        WkClasseur.Close savechanges:=False
si qq un pouvait m aider a faire un petit mix pour que chaque onglet sauvegarder soit sans le feuil1 avec le saut de page je vous remerci par avance