découper un fichier Base

Lone-wolf

XLDnaute Barbatruc

• 1 Juillet 2018

• #2

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\".

 

Pièces jointes

• Nouveau dossier.zip

  238.9 KB · Affichages: 23

Vote positif 0 Vote négatif

N

NICOALBERT

XLDnaute Occasionnel

• 1 Juillet 2018

• #3

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 .

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 1 Juillet 2018

• #4

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.

 

Pièces jointes

• NICOALBERT- Base- v1.xlsm

  562.2 KB · Affichages: 38

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 1 Juillet 2018

• #5

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?

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 1 Juillet 2018

• #6

Re,

Lone-wolf à dit:

Pourquoi cette boucle?

Cliquez pour agrandir...

Pour ne garder que la première feuille.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 2 Juillet 2018

• #7

Bonjour mapomme, NICOALBERT, le Forum 🙂

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

 

Vote positif 0 Vote négatif

N

NICOALBERT

XLDnaute Occasionnel

• 2 Juillet 2018

• #8

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Juillet 2018

• #9

Bonsoir NICOALBERT,

NICOALBERT à dit:

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 ?

Cliquez pour agrandir...

C'est exactement ça.

 

Vote positif 0 Vote négatif