Comment enregistrer une feuille par classeur avec une macro
Résolu
Bonjour,
J'ai une dizaine de fichiers Excel contenant chacun une centaine de feuilles environ. J'aimerais réenregitrer chacune de ces feuilles dans un classeur distinct qui aurait le même titre que la feuille.
Je connais la méthode pour faire cette opération une feuille à la fois, mais j'en ai plus de mille à faire.
Quelqu'un connaîtrait-il une macro pour réaliser cette opération?
Merci à l'avance
J'ai une dizaine de fichiers Excel contenant chacun une centaine de feuilles environ. J'aimerais réenregitrer chacune de ces feuilles dans un classeur distinct qui aurait le même titre que la feuille.
Je connais la méthode pour faire cette opération une feuille à la fois, mais j'en ai plus de mille à faire.
Quelqu'un connaîtrait-il une macro pour réaliser cette opération?
Merci à l'avance
1 réponse
-
ModérateurBonjour,
Cette macro enregistre chaque feuille de ton classeur dans le même répertoire que celui-ci.
Attention toutefois, si des feuilles de deux classeurs ont le même nom.....Sub EnregistreChaqueFeuille() Dim Chemin As String, feuille As Worksheet For Each feuille In ThisWorkbook.Worksheets feuille.Copy With ActiveWorkbook .SaveAs Chemin & feuille.Name .Close End With Next End Sub-
-
ModérateurBen oui.
J'ai oublié une ligne de code....
Pfff désolé!Sub EnregistreChaqueFeuille() Dim Chemin As String, feuille As Worksheet Chemin = ThisWorkbook.Path & "\" For Each feuille In ThisWorkbook.Worksheets feuille.Copy With ActiveWorkbook .SaveAs Chemin & feuille.Name .Close End With Next End Sub -
-
-
