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
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
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
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
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
Partager