Séparer des onglets en feuille excel

Re : Séparer des onglets en feuille excel

Ca a marché parfaitement, encore un immense merci à vous deux

Re : Séparer des onglets en feuille excel

Bonjour a tous
j'ai le même besoin ,j'ai essayé de créer une macro mais elle ne fonctionne qu'à moitié. ( dispatch les onglets mais ne créer pas le dossier et s'arrete à la moitie?

Sub dispatch_Une_Par_Une()
Dim chemin As String, F As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
chemin = CreateObject("WScript.Shell").specialFolders("Desktop")
chemin = chemin & "\" & Format(Date, "yyyy_mm_dd")
For Each F In Worksheets
F.Copy
With ActiveWorkbook
.SaveAs Filename:=chemin & "\" & .ActiveSheet.Name & ".xlsx"
.Close True
End With
Next F
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Re : Séparer des onglets en feuille excel

Re Armelle,

j'ai répondu à ton message. Et si tu veux créer un dossier la macro n'est pas la bonne.



A+