Consolidation de 20 classeurs

bonjour,

j'aimerais consolider 20 classeurs identiques dans un 21ème qui regrouperait uniquement les données des colonnes L et M.

j'ai essayé avec la consolidation classique mais cela me semble un peu lourd.

est-ce que quelqu'un pourrait me conseiller une méthode plus simple.

chaque classeur aura autant d'onglet que de semaine.

voir pièces jointes

https://www.excel-pratique.com/~files/doc/FICHE_DE_POSTE_1.xls

https://www.excel-pratique.com/~files/doc/FICHE_DE_POSTE_2.xls

https://www.excel-pratique.com/~files/doc/FICHE_DE_POSTE_CONSOLIDATION.xls

je vous remercie par avance de votre aide éventuelle.

jacquaud

Bonsoir Jacquaud,

Voici une solution.

J'ai considéré que les 20 classeurs se trouvaient dans le même répertoire que le répertoire du classeur de consolidation.

https://www.excel-pratique.com/~files/doc/FICHE_DE_POSTE_CONSOLIDATION.zip

De plus, je tiens à attirer ton attention sur le fait que si une feuille n'est pas trouvée dans le classeur de consolidation, la récupération des données de cette feuille ne s'effectuera pas.

Pour info, le nom de la feuille "sem 52)" dans les classeurs "FICHE_DE_POSTE_1.xls" et "FICHE_DE_POSTE_2".xls comporte une parenthèse et par conséquent, il ne s'agit pas du même nom dans le fichier de consolidation "sem 52".

J'espère que la solution te convient.

merci matthieu pour ton aide, mais j'ai un petit souci pour la mise en place. Lorsque je clique sur Récupération des données j'ai le message suivant : FICHE_DE_POSTE_CONSOLIDATION.xls est déjà ouvert. Si vous l'ouvrez à nouveau, toutes vos modifications seront perdues. Voulez-vous rouvrir FICHE_DE_POSTE_CONSOLIDATION.xls ?

C'est le seul fichier de ce nom présent sur mon disque dur. D'avance merci.

Jacquaud.

Effectivement, il y avait une erreur.

J'ai apporté les corrections nécessaires.

https://www.excel-pratique.com/~files/doc/FICHE_DE_POSTE_CONSOLIDATION_v2.zip

bonjour Matthieu,

Ta solution a mon problème est super et je te remercie. Cela fonctionne parfaitement.

Une dernière petite chose, est-ce que le peux reporter le bouton "Récupération des données" sur chaque feuille du classeur FICHE DE POSTE CONSOLIDATION et si oui de quelle façon ?

D'avance merci pour ta réponse

Jacquaud

bonjour Matthieu,

c'est bon j'ai trouvé, encore merci.

jacquaud

Bonjour,

Dernière question. Lorsque j'active " Récupération des données " dans le classeur consolidation, la macro passe en revue tous les classeurs sources mais lorsque ceux-ci sont protégés par un mot de passe je suis obligé d'indiquer le mot de passe pour chacun.

Peut-on modifier la macro pour éviter la saisie des mots de passe, tout en gardant la sécurité des différents classeurs sources ?

En te remerciant encore pour ton aide et dans l'attente d'une réponse,

Jacquaud

Bonsoir Jacquaud,

Voici les adaptations à réaliser dans la procédure "cmdRecuperation_Click" :

1/ Enlever la protection du classeur après l'ouverture du classeur

Changer le mot de passe "toto" par celui utilisé dans les classeurs

' Ouvrir le fichier
Workbooks.Open .FoundFiles(lgWBF), Password:="toto"

2/ En début de procédure, après "Application.ScreenUpdating = False", mettre :

Application.DisplayAlerts = False

3/ En fin de procédure, avant "Application.ScreenUpdating = True", mettre :

Application.DisplayAlerts = True

J'espère que cela te conviendra.

Bonjour Matthieu,

Merci pour ta réponse rapide. J'ai essayé d'appliquer tes recommandations et le résultat n'a pas été brillant. Cela m'a permis de voir où étaient mes limites.

Je te joins 3 fichiers ( 2 fiches de postes + 1 conso )

1 fiche de poste : mot de passe "aa"

2 fiche de poste : mot de passe "bb"

https://www.excel-pratique.com/~files/doc/FICHE_DE_POSTE_ALAIN.xls

https://www.excel-pratique.com/~files/doc/FICHE_DE_POSTE_ANNIE.xls

https://www.excel-pratique.com/~files/doc/bOuHIFICHE_DE_POSTE_CONSOLIDATION.xls

Précision : les fiches de poste sont utilisées par des tiers personnes qui veulent conserver leurs mots de passe.

si tu peux m'aider, encore merci.

Jacquaud

Bonjour Jacquaud,

J'ai apporté les modifications nécessaires.

J'ai ajouté un module "Procedures" dans lequel j'ai mis une procédure "Recuperation" qui est appelée par le bouton se trouvant dans chaque feuille.

Cela pour éviter d'avoir à modifier les procédures se trouvant dans les 2 boutons.

Dans la procédure "Recuperation", j'ai noté ce que j'avais ajouté.

Dans cette procédure, il va falloir rajouter tous les mots de passe par utilisateur.

https://www.excel-pratique.com/~files/doc/8akSMFICHE_DE_POSTE_CONSOLIDATION.xls

Je te laisse regarder et si besoin, je te donnerai des explications.

Bonjour Matthieu,

J'ai mis en application tout ce que tu m'as transmis et appris, et alors là, bravo.

23 classeurs ( protégés par un mot de passe différent) de 52 feuilles chacun, le tout consolidé dans un 24ème classeur par 1 simple clic sur un bouton, c'est du TOP !

Encore merci, et joyeuses fêtes de fin d'année.

Jacquaud

Bonjour Matthieu,

Je suis confronté presqu'au même probleme que celui de jacquaud. J'ai lancé une demande d'aide voir https://www.excel-pratique.com/forum/viewtopic.php?t=3366

Ce qui est interessant c'est que tu as proposé une solution qui m'interesse. Pourrai tu adapter la solution de Jacquaud à mon probleme?

Et merci d'avance pour ton aide.

Bonjour Matthieu et bonne année,

C'est encore Jacquaud qui a un problème avec les mots de passe. Lorsque j'applique un mot de passe pour "La lecture seule" la procédure de récupération ne se fait pas automatiquement et je suis obligé d'indiquer chaque mot de passe pour chaque classeur.

Peut-on modifier la macro pour éviter cette contrainte ?

Je te joins 3 fichiers ( 2 fiches de postes + 1 conso )

1 fiche de poste : mot de passe "aa"

2 fiche de poste : mot de passe "bb"

https://www.excel-pratique.com/~files/doc/e8tK1FICHE_DE_POSTE_ALAIN.xls

https://www.excel-pratique.com/~files/doc/J0DJOFICHE_DE_POSTE_ANNIE.xls

https://www.excel-pratique.com/~files/doc/3E6j4FICHE_DE_POSTE_CONSOLIDATION.xls

Si tu m'aider, merci.

Jacquaud

Salut le Forum

Jacquard, modifie la ligne

Workbooks.Open .FoundFiles(lgWBF), WriteResPassword:=strMotPasse

par

Workbooks.Open .FoundFiles(lgWBF), Password:=strMotPasse

Cela devrait régler ton problème.

Mytå