Séparer des onglets en feuille excel

[FCAFE]

Bonjour


Est il possible de séparer des onglets excel en feuille séparer par un petit programme s'il vous plait
par exemple mettre les onglets sur le bureau en attendant de les traiter, sachant que mais onglet a dispatcher
commence toujours par fr ou qs

Je vous remercie de votre aide

Version excel 2003 - 2010 l'année prochaine

 

[Forx]

Re : Séparer des onglets en feuille excel

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

 

[ArmelleM]

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

 

[Lone-wolf]

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+