Demonter un classeur EXCEL Résolu/Fermé

Question

Bonjour, je suis archi débutant sur Excel et voici mon problème: j'ai récupéré un classeur contenant beaucoup de feuilles (environ 400) et je dois enregistrer chaque feuille une par une. Bien sur je peux déplacer manuellement chaque feuille et lui donner son nom comme nom de classeur mais c'est très fastidieux...
Merci d'avance

Patrice33740 · Answer

Bonjour,

Avec une petite macro à placer dans un module du fichier à scinder :
Option Explicit
Sub ScinderFeuillesDuFichier()
Dim wbk As Workbook
Dim wsh As Worksheet
Dim ext As String
  ext = Mid(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, "."))
  For Each wsh In ThisWorkbook.Worksheets
    wsh.Copy
    Set wbk = ActiveWorkbook
    wbk.SaveAs wsh.Name & ext
    wbk.Close
  Next wsh
End Sub