découper un fichier Base

[NICOALBERT]

Bonjour le Forum ,

Je vient vers vous car je me suis fait une base de donnée sur le Basketball et j'ai une base de plus de 220000 lignes (de 2012 à 2018) ce qui représente plus de 8400 référence .

Ce que je cherche à faire c'est découper ma base en 8400 dossier ( 1 dossier pour chaque référence) et que chaque dossier soit enregistrer sous ce genre d’appellation : Base_0001_12_13_DEN_LAC . (DEN=Denver et LAC=Los Angeles Clippers ( les abréviations sont dans la 2ème colonnes de la feuille base) .

J'ai bien une petite macro (dans mon fichier "Mise en forme") que je fait un par un mais trop fastidieux au vu du nombre de référence .

Est ce que quelqu'un aurait une idée pour automatiser la manip ? .

Je vous joint un petit bout de ma base avec un exemple de ce que je cherche à avoir .

Merci d'avance .

Cdlt Nicoalbert.

 

[Lone-wolf]

Bonjour NICOALBERT et bienvenue sur XLD , le Forum

Ton fichier Base en retour. J'ai masquer des colonnes pour pouvoir visualiser la liste déroulante(AE2). Double-clique sur la feuille "Base" pour lancer la macro.

Note: d'après ce que j'ai compris, ce ne sont pas des dossiers, mais des classeurs(enfin j'éspère).
Et il n'y a pas besoin d'un autre classeur, tu verra l'exemple.

Si les nouveaux classeurs sont sauvegardés ailleur que dans le dossier, il faudra modifier ThisWorkbook.Path & "\" par le chemin exact,
exemple : Rep = "C:\Users\Nico\Documents\".

 

[NICOALBERT]

Bonjour Lone-wolf , le Forum ,

Tout d'abord un grand merci pour le temps pris pour m'aider .

Le Fichier est nickel (chapo) . c'est exactement ça .

Cdlt Nicoalbert .

 

[mapomme]

Bonjour @NICOALBERT , @Lone-wolf ,

J'avais commencé puis fais une pause à cause de la chaleur.
Voici ce que j'ai pondu...
Cliquer sur le bouton Hop.

 

[Lone-wolf]

Bonsoir mapomme

@mapomme: je ne comprends pas cette ligne

For i = wbk.Worksheets.Count To 2 Step -1: wbk.Worksheets(i).Delete: Next i

Pourquoi cette boucle?

 

[mapomme]

Re,

Pourquoi cette boucle?

Pour ne garder que la première feuille.

 

[Lone-wolf]

Bonjour mapomme, NICOALBERT, le Forum

@mapomme: j'ai testé la macro, effectivement beaucoup plus rapide. Très bon travail comme d'habitude.

 

[NICOALBERT]

Bonjour @mapomme , Lone-Wolf et le Forum ,

Désolé pour la réponse tardive mais je n'était pas chez moi hier .

Lone-Wolf avait déjà fait un excellent travail , mais la , niveau rapidité de traitement c'est un travail de ouf ...

Donc si je comprend bien ton code , tu n'a plus de liste en référence mais à chaque fois qu'une référence est différente il créer un nouveau dossier ?

Un grand merci à vous deux pour le temps que vous m'avez accordé .

cdlt Nicoalbert

 

[mapomme]

Bonsoir NICOALBERT,

tu n'a plus de liste en référence mais à chaque fois qu'une référence est différente il créer un nouveau dossier ?

C'est exactement ça.