Bonjour à tous !
Étant débutant sur Excel j'ai mis du temps à trouver ce code donc je le partage avec vous.
Pour Defractionner (SCINDER) un classeur Excel contenant plusieurs feuilles en plusieurs fichiers Excel pour chaque feuille.
Chaque fichier prendra le nom de la feuilles (et oui !)
0/ L’extraction apparaîtra dans le même dossier que le ficher de base
1 / ouvrir le fichier Excel
2/ Ouvrir visual basic (Onglet développeur) ou (ALT+F11)
3/ Insertion > Module
4/ coller le code suivant
5/ Exécuter ou F5 (attendre la fin)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub Splitbook() 'Updateby20140612 Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
6/enregistrer > fermer
Partager