Microsoft 365 Enregistrer les onglets d'un fichier Excel séparément.

[Geraldine2024]

Bonjour,
Je souhaite séparer tous les onglets d'un tableau excel en 1 seul clic. Pourriez vous m'aiguiller car je ne retrouve pas la manip à faire ?
Merci

via le code
Sub saveOnglet()
Dim ws
Dim newWk As Workbook

For Each ws In Worksheets
Set newWk = Workbooks.Add(xlWBATWorksheet)
Application.DisplayAlerts = False
ws.Copy newWk.Sheets(1)
Sheets("Feuil1").Delete
newWk.SaveAs (ws.Name & ".xlsx")
newWk.Close
Application.DisplayAlerts = True
Set newWk = Nothing
Next ws

End Sub

 

[jcf6464]

Bonjour geraldine 2024 et le forum,

A voir

Enregistrer chaque onglet dans un fichier XLS - Macros et VBA Excel

voilà suite à l'importation d'un fichier AS400 et à son triturage à l'aide de script VBA, j'aurais voulu savoir s'il était possible d'enregistrer chaque onglet obtenu (18 au total) dans un document Excel

www.developpez.net

ou

Enregistrer séparément tous les onglets d'un fichier

Bonjour, J'ai un fichier excel comportant environ 20 onglets. Chacun étant le suivi budgétaire propre à un responsable et chacun d'eux devant avoir accès à son fichier sans voir les autres. Je souhaiterais donc séparer automatiquement tous les onglets et les enregistrer dans le répertoire...

excel-downloads.com

bonne continuation

 

[kiki29]

Salut, à télécharger/consulter/adapter à ton contexte : Liste Contributions PDF