Demonter un classeur EXCEL

Résolu
JEDE08 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
JEDE08 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

Réponse 1 / 1
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
0
JEDE08 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour, merci pour votre réponse rapide et efficace!
Cette macro fait exactement ce que je souhaitais...
Au passage je découvre la puissance de ce logiciel.
Encore merci!
0