|
Vous pouvez exploser des feuilles de calcul Excel en classeurs distincts en utilisant VBA (Visual Basic pour les applications) dans Excel. Voici un guide étape par étape:
1. Activez l'onglet Développeur:
* Ouvrez votre classeur Excel.
* Accédez à Fichier> Options> Personnaliser le ruban .
* Cochez la case pour développeur .
* Cliquez sur ok .
2. Insérez un module VBA:
* Cliquez sur développeur> Visual Basic .
* Dans l'éditeur Visual Basic (VBE), accédez à INSERT> Module .
3. Collez et modifiez le code VBA:
`` VBA
Sub SplitworkSheets ()
Dim WB comme classeur, ws comme feuille de travail
Dim Newwb comme classeur
Nom de fichier dim comme chaîne
Définir WB =ActiveworkBook 'Définir le classeur actif
'Loop à travers chaque feuille de calcul
Pour chaque WS dans WB.Worksheets
'Créer un nouveau classeur
Définir NewWb =Workbooks.add
'Copiez la feuille de travail actuelle dans le nouveau classeur
ws.copy avant:=newwb.sheets (1)
«Renommer le nouveau classeur en fonction du nom de la feuille de travail
filename =ws.name &".xlsx"
Newwb.Saveas nom de fichier
'Fermez le nouveau classeur
newwb.close
Next ws
Sub-Sub
`` '
Explication:
* `DIM WB As Workbook, ws comme feuille de calcul, newwb comme classeur, nom de fichier comme chaîne`: Déclare les variables pour stocker des objets de classeur et de feuille de travail, ainsi que le nom de fichier du nouveau classeur.
* `set wb =activeworkbook`: Définit la variable «WB» vers le classeur actuellement actif.
* `Pour chaque ws dans wb.worksheets`: Boucle via chaque feuille de calcul dans le classeur actif.
* `Définissez NewWb =Workbooks.add`: Crée un nouveau classeur vide.
* `ws.copy avant:=newwb.sheets (1)`: Copie la feuille de calcul actuelle (`` WS ') au classeur nouvellement créé («Newwb»), en l'inservant avant la première feuille.
* `filename =ws.Name &" .xlsx "`: Définit le nom de fichier du nouveau classeur en utilisant le nom de la feuille de calcul et l'extension `.xlsx`.
* `newwb.saveas nom de fichier`: Enregistre le nouveau classeur avec le nom de fichier spécifié.
* `newwb.close`: Ferme le classeur nouvellement créé.
4. Exécutez la macro:
* Appuyez sur alt + f11 Pour revenir à la feuille Excel.
* Allez à développeur> macros .
* Sélectionnez les Splitworksheets macro et cliquez Exécuter .
La macro créera des classeurs Excel distincts pour chaque feuille de calcul de votre classeur d'origine, les enregistrant dans le même dossier que le classeur d'origine.
Remarques supplémentaires:
* Personnalisez le format de nom de fichier: Vous pouvez modifier la variable «nom de fichier» pour inclure des informations supplémentaires, telles que la date ou l'heure, dans les noms de fichiers enregistrés.
* Enregistrer dans un dossier spécifique: Vous pouvez spécifier un dossier différent pour enregistrer les nouveaux classeurs en modifiant la variable «FileName».
* Exécutez la macro sur un classeur différent: Avant d'exécuter la macro, assurez-vous de sélectionner le classeur que vous souhaitez diviser en fichiers séparés.
|
