XL 2016 Division fichier .xslx (multi-onglets) en plusieurs classeurs (multi-onglets)

[gregomex]

Bonjour à tous,

J'ai fait le tour des forum sans réellement trouver de solution à cette problématique : enregistrer un fichier "sous" en incluant tous les onglets du classeur et les formules associées (TCD principalement)

Je m'explique :

• Mon fichier contient un onglet "bdd" et plusieurs onglets de TCD.
• L'objectif est de créer autant de fichiers que de valeurs uniques trouvées en colonne "xxx" situées dans mon onglet "bdd" (filtrer en fonction de la valeur)
• valeur = "bernard" --> filtrer sur "bernard" et enregistrer le fichier sous "bernard".xlsx.

Ce que j'ai pu voir jusqu'à présent, ce sont des macros qui effectivement créent des fichiers mais jamais ne reprennent les onglets attachés au fichier de base.
Ce que je cherche finalement, c'est :

• créer un fichier en fonction de ces critères
• actualiser les données
• enregistrer le fichier
• boucler

Merci par avance pour votre contribution !

Greg

 

[laurent3372]

Bonjour
Tu as bien fait de me suggérer d'améliorer le code. La première version n'était pas du tout optimisée.
C'est maintenant chose faite.
Dis-moi si le gain de temps est appréciable.

 

[gregomex]

Re bonjour,

Effectivement, c'est beaucoup plus rapide.
Néanmoins, les fichiers créés ne contiennent plus les autres onglets sur lesquels il existe de multiples TCD dépendants de l'onglet Bdd.
Et c'est bien là la clef de voûte de mon besoin.
Merci à toi !

 

[laurent3372]

J'avais oublié ce point. Je vais arranger ça. C'était pour cette raison que j'avais employé ma méthode lente qui consistait à effacer des lignes du tableau.

 

[laurent3372]

Voici une version qui conserve tous les onglets

 

[gregomex]

Bonjour,
Le code s'arrête à pt.ChangePivotCache pcNew.
De plus, la source de données à laquelle font référence les tcd est la Bdd du fichier source et non la Bdd de chaque fichier nouvellement créé.
Merci !

 

[laurent3372]

Le code incriminé est justement celui qui met à jour les sources de données. Ca marche chez moi.

Quel est le message d'erreur lorsque le code s'arrête ?

 

[gregomex]

C'est une erreur 5.
Merci.

 

[laurent3372]

Je n'arrive pas à reproduire le bug chez moi.
Peux-tu m'envoyer le fichier de données qui provoque cette erreur ?

 

[gregomex]

Voici !

 

[laurent3372]

Voici une nouvelle version corrigée qui marche chez moi sur le fichier que tu m'as transmis.

Cordialement,
--
LR

 

[gregomex]

Bonjour Laurent,
C'est parfait. j'ai adapté le code à mon fichier, c'est top.
Merci encore pour ton dévouement !