Demonter un classeur EXCEL

Résolu/Fermé
JEDE08 Messages postés 2 Date d'inscription mercredi 15 juillet 2015 Statut Membre Dernière intervention 15 juillet 2015 - 15 juil. 2015 à 12:13
JEDE08 Messages postés 2 Date d'inscription mercredi 15 juillet 2015 Statut Membre Dernière intervention 15 juillet 2015 - 15 juil. 2015 à 15:29
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

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 773
15 juil. 2015 à 14:09
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 mercredi 15 juillet 2015 Statut Membre Dernière intervention 15 juillet 2015
15 juil. 2015 à 15:29
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