Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autant de fichiers qu'un classeur contient d'onglets

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

moustic54

XLDnaute Occasionnel
Bonjour à tous

J'ai 5 fichiers Excel qui contiennent chacun un nb maximum d'onglets.
Le problème, c'est que chaque onglet doit au final correspondre à un fichier unique. Je dois donc éclater chaque classeur en autant de petits fichiers qu'il contient d'onglets.

Existe -t-il, à votre connaissance, un moyen de procéder autre que de renommer autant de fois que nécessaire (c-à-dire autant de fois que le fichier contient d'onglets) le classeur "Maitre" puis de supprimer les onglets superflus ?
Le travail est long et fastidieux, d'autant que je dois en fin d'opération, me retrouver avec quelque chose comme 800 fichiers environ.

Si quelqu'un connait une solution moins "pierre à feu", je suis preneur.
 
Re : Autant de fichiers qu'un classeur contient d'onglets

Bonjour

Un code à tester qui permet de créer de fichiers avec le nom des onglets.
Code:
Sub Enregistrer()
Dim nomfi As String, TempFilePath As String, FileExtStr As String
Dim Sh As Worksheet

TempFilePath = ThisWorkbook.Path & "\"
FileExtStr = ".xls"

For Each Sh In Worksheets
    nomfi = TempFilePath & Sh.Name & FileExtStr
    Sh.Copy
    ActiveWorkbook.SaveAs Filename:=nomfi, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWorkbook.Close
 Next Sh
End Sub

JP
 
Re : Autant de fichiers qu'un classeur contient d'onglets

Bonjour JP

Je vais essayer immédiatement. Merci çà va grandement me faciliter la vie.

Merci JP pour ton aide et bonne soirée
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
569
L
Réponses
10
Affichages
2 K
I
  • Question Question
Microsoft 365 Échange de voeux
Réponses
2
Affichages
610
isa_charest1
I
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…