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
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
5/ Exécuter ou F5 (attendre la fin)
6/enregistrer > fermer