Comment enregistrer une feuille par classeur avec une macro

Résolu
ChevalBleu -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
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

1 réponse

  1.
    pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,

    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
    0
    1. ChevalBleu
       
      Merci pour ta macro. Je viens de l'essayer. Elle fonctionne. Malheureusement, elle enregistre tous les fichiers dans le dossier Mes documents
      0
    2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Ben 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
      0
    3. ChevalBleu
       
      Super! Ça fonctionne à merveille.

      Merci!
      0
    4. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Mais de rien.
      A+ n'hésite pas.
      0

Discussions similaires

Copier une feuille d'un classeur qui s'actualise
André Roussel -
LaBoule2Petanque -

4 réponses