Se connecter avec
S'enregistrer | Connectez-vous

Macro Excel pour créer classeurs à partir de feuilles

Dernière réponse : dans Programmation

Bonjour,

mes recherches étant resté vaines sur le sujet, je sollicite votre aide.

voila mon pb:
Je reçois tous les mois un fichier Excel contenant de 5 à 40 feuilles.
Je dois l'éclater en autant de classeurs que de feuilles :
ex:
j'ai un classeur "monclasseur" contenant les feuilles AAAA, BBBB et CCCC
je souhaiterais créer 1 classeur nommé AAAA avec la feuille AAAA
un autre nommé BBBB avec la feuille BBBB
et enfin un autre nommé CCCC avec la feuille CCCC

merci donc pour votre aide à la réalisation de cette macro,

Cordialement,
Lassé par la pub ? Créez un compte

Meilleure solution

Pardon, j'avais mal lu, voici :

  1. Sub Macro2()
  2.  
  3. For Each feuille In ActiveWorkbook.Sheets
  4. feuille.Copy
  5. With ActiveWorkbook
  6. .Title = feuille.Name
  7. .Subject = feuille.Name
  8. .SaveAs Filename:=feuille.Name + ".xls"
  9. End With
  10.  
  11. Next
  12. End Sub

Bonjour,

Voici un code vite-fait qui fait ça, il n'y a pas de gestion des erreurs, il faudra peut l'adapter à ton cas :

  1. Sub Macro2()
  2. For Each feuille In ActiveWorkbook.Sheets
  3. Set newBook = Workbooks.Add
  4. With newBook
  5. .Title = feuille.Name
  6. .Subject = feuille.Name
  7. .SaveAs Filename:=feuille.Name + ".xls"
  8. End With
  9.  
  10. Next


Voila j'espère t'avoir aidé.

Bonjour,

Merci pour cette réponse rapide;

La création des classeurs avec les noms des feuilles fonctionne très bien.

Par contre, la copie de la feuille en question n'est pas réalisée dans le nouveau classeur.

Cette fonction me ferait gagner enormément de temps;

Encore merci

Cordialement,
Lassé par la pub ? Créez un compte