Demonter un classeur EXCEL

Résolu
JEDE08 Messages postés 2 Statut Membre -  
JEDE08 Messages postés 2 Statut Membre -
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 8930 Statut Membre 1 781
 
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 Statut Membre
 
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