macro mise en page et decompil
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:
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:
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
