Discussion :

[Renaud2210]

Bonjour à tous,

J'ai besoin qu'on aide afin de copier des feuilles d'un fichier (Fichier B) dans un autre (Fichier A) selon un critère. Je joins les fichiers suivants à ma requête :

* Fichier A : fichier cible
* Fichier B : fichier source
* Fichier C : fichier résultats

Par exemple, j'ai un fichier cible (fichier A) qui contient deux feuilles et un fichier source (fichier B) qui en contient quatre. Lorsque que le fichier A est ouvert, je veux, à l'aide d'une macro, pouvoir sélectionner un fichier quelconque en ouvrant une fenêtre de navigation (ex. : fichier B) et la macro doit vérifier pour toutes les feuilles du fichier B si le contenu des cellules C3 & C8 est différent de "xx". Elle copiera uniquement et automatiquement dans le fichier A, les feuilles répondant à ce critère (voir fichier C : fichier résultats).

Il est a noté que la macro doit fonctionner, indépendamment du nom des fichiers et du nombre de feuilles présentes à l'intérieur des fichiers source et cible.

Merci par avance pour votre aide.

Renaud2210

[Menhir]

Je joins les fichiers

http://www.developpez.net/forums/d84...s-discussions/

pouvoir sélectionner un fichier quelconque en ouvrant une fenêtre de navigation

https://msdn.microsoft.com/fr-fr/lib.../ff834966.aspx

pour toutes les feuilles du fichier B

Faire une boucle For Each sur la collection Worksheets du fichier.
https://msdn.microsoft.com/fr-fr/lib.../gg264596.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff821537.aspx

si le contenu des cellules C3 & C8 est différent de "xx".

Un test If sur le contenu de la cellule
https://msdn.microsoft.com/fr-fr/lib.../gg251599.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff838238.aspx

Elle copiera uniquement et automatiquement dans le fichier A, les feuilles répondant à ce critère (voir fichier C : fichier résultats).

Méthode Copy de l'objet Worksheet
https://msdn.microsoft.com/fr-fr/lib.../ff837784.aspx