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

XL 2013 Séparer une base de donnée excel en plusieurs onglets selon une quantité voulue

chac10

XLDnaute Junior
Bonjour à toute la communauté,
J'ai une nouvelle mission , vous pourrez peut être m'aider à la résoudre.
Je souhaiterais séparer entièrement un fichier Excel contenant un grand nombre de ligne, en plusieurs onglets qui contiendront aux maximum un nombre de 500 lignes.
Il faudrait que chaque onglet soit séparé avec les mêmes en tètes que le fichier d'origine.

Est ce possible de mettre en place un code vba pour ce type de demande ?
J'ai joins un fichier avec le résultat attendu.
Il y a bien 25 colonne dans mon fichier d'origine.
Le nombre de ligne varie.

Chac10
 

Pièces jointes

  • Modèle objectif séparation d'une base de donnée en plusieurs onglets de taille prédéterminée.xlsx
    159.6 KB · Affichages: 27

job75

XLDnaute Barbatruc
Pour que ce soit plus propre,
Est ce possible de rassembler les fichiers dupliqués dans un nouveau dossier appelé Campagne avec la date du jour ?
La ils s'éparpillent sur le bureau...
Chac 10
Fichier (3) avec en début de macro :
VB:
chemin = ThisWorkbook.Path & "\Campagne " & Format(Date, "yyyy-mm-dd") & "\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin 'crée le sous dossier
 

Pièces jointes

  • Partager(3).xlsm
    98.8 KB · Affichages: 3

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…