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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Geraldine2024

XLDnaute Nouveau
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
 
Bonjour geraldine 2024 et le forum,

A voir

ou



bonne continuation
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
991
Retour