Recopie lignes depuis 3 fichiers dans 1 fichier central

[Bcar]

Bonjour le Forum,
Mon sujet est le suivant:
J'ai 5 fichiers "Gesper" (gestion planning) qui sont gérés par des responsables d'activité, dans ces fichiers differents metiers sont presents.
Pour ne pas obliger les responsables metiers à ouvrir ces 5 fichiers pour consulter les infos (conges, formation,...) je souhaite mettre à leur disposition un fichier "recap" qui va recuperer les lignes concernant leur metier dans les 5 autres fichiers.
Je met en pieces jointes les fichiers avec des explications complementaires? pour respecter la taille j'ai du alleger les fichiers. En reel chacun comporte 4 onglets Q1,... qui representent en fait 1 trimestre.
Je tiens à profiter de l'occasion pour remercier les contibuteurs qui m'ont aidé à créer le fichier Gesper.
Par avance merci et à bientot de vous lire.
Bcar

 

[Catrice]

Re : Recopie lignes depuis 3 fichiers dans 1 fichier central

Bonjour,

Ya pas de fichier ...

 

[Bcar]

Re : Recopie lignes depuis 3 fichiers dans 1 fichier central

Bonjour Catrice,
Merci pour l'info, j'ai ajouté les fichiers
Cordialement,
Bcar.

 

[Bcar]

Re : Recopie lignes depuis 3 fichiers dans 1 fichier central

Bonjour le Forum,
Juste un mot pour faire remonter à la surface mon pb de recopie de lignes. Merci par avance aux bonnes ames qui pourront m'aider.

 

[jp14]

Re : Recopie lignes depuis 3 fichiers dans 1 fichier central

Bonjour

Ci joint un fichier avec une macro

A tester

JP

 

[Bcar]

Re : Recopie lignes depuis 3 fichiers dans 1 fichier central

Bonsoir JP14,
Tout d'abord merci pour ton aide, je vais etudier cela tout de suite.
Cordialement,

 

[Bcar]

Re : Recopie lignes depuis 3 fichiers dans 1 fichier central

Bonjour le Forum, bonjour JP 14
Tout d'abord merci à JP 14. Sinon,j'ai enfin pu essayé le code envoyé par JP et ça marche à 95%. Pour info dans la macro module1/travdemande il faut placer le next sh avant Windows(nomfeuille2).Activate.

J'aurai cependant encore besoin d'aide, en effet lorsque l'on place le code dans ThisWorkbook/workbook_open ça plante à la fin du module sur l'intruction Windows(nomfeuille2).Activate alors que lorsque l'on lance la macro dans le module RAS.
D'autre part je me suis aperçu que je devais rapatrier selon le critere Tech Maint AMT mais aussi R-Maint, j'ai modifié avec "*Maint*" mais cela ne fonctionne pas. Pourquoi?
Enfin les differents fichiers Gesper se trouvent dans des repertoires differents et la je seche pour adapter le code!!
Merci par avance à JP de me consacrer un peu d'attention.
Cordialement,

 

[jp14]

Re : Recopie lignes depuis 3 fichiers dans 1 fichier central

Bonjour

Ci joint le fichier avec la macro modifiée.

Ajout d'un select case pour gérer les répertoires et d'un fonction Ou pour la sélection des métiers.
Le nom des feuilles se trouve directement dans les variables.

A tester

JP

 

[Bcar]

Re : Recopie lignes depuis 3 fichiers dans 1 fichier central

Bonsoir JP14, Bonsoir le forum,

Un grand merci à toi JP, j'ai testé et ça marche à 100% en lançant la macro avec 1 bouton.
Reste à voir en plaçant le code dans ThisWorkbook/workbook_open.
Bonne soirée à tous,