Comment enregistrer une feuille par classeur avec une macro

Résolu/Fermé

ChevalBleu - Modifié par Guillaume5188 le 18/12/2013 à 14:23
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 18 déc. 2013 à 18:22

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

A voir également:

Comment enregistrer une feuille par classeur avec une macro
Comment enregistrer une video youtube - Guide
Audacity enregistrer son pc - Guide
Comment enregistrer une musique sur youtube en mp3 - Guide
Comment supprimer une feuille sur word - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
18 déc. 2013 à 14:40

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

ChevalBleu
18 déc. 2013 à 16:43

Merci pour ta macro. Je viens de l'essayer. Elle fonctionne. Malheureusement, elle enregistre tous les fichiers dans le dossier Mes documents

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
18 déc. 2013 à 16:46

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

ChevalBleu
18 déc. 2013 à 17:17

Super! Ça fonctionne à merveille.

Merci!

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
18 déc. 2013 à 18:22

Mais de rien.
A+ n'hésite pas.

Discussions similaires

Reporter valeur sur autre feuille avec critere

Feuille de score belote