Discussion :

[arnest]

Bonjour à Tous,

J'ai plusieurs fichiers xls (256) dans un repertoir qui ont strictement la même structure des colonnes.

Je souhaite faire un filtre élaboré sur ces fichiers à partir d'un fichier que je nomme Tableau.xls et puis copier tout ces fichiers avec seleument les données filtrés dans un autre repertoir. Comment faire?

[Lou Pitchoun]

Salut,

C'est un peu flou ces explications...

Je souhaite faire un filtre élaboré sur ces fichiers à partir d'un fichier que je nomme Tableau.xls et puis copier tout ces fichiers avec seleument les données filtrés dans un autre repertoir.

J'ai du mal à comprendre..
Je vais essayer de te dire ce que j'ai compris.
Tu as 256 fichiers.
Tu souhaites copier les données filtrées de chacun des fichiers dans un fichier situé dans un autre répertoire à partir du fichier Tableau.xls.

C'est ça ?

Crée d'abord ton filtre dans ton fichier Tableau.
Ensuite utilise cette source pour parcourir le répertoire contenant les 256 fichiers.
Actualise le filtre pour chaque fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
With Classeur
       With .Worksheets("NomFeuille")
              .Range("PlagedeCellule").AdvancedFilter Action:= _
                   xlFilterCopy, CriteriaRange:=Worksheets("NomFeuille").Range("Plage critère"), _
                   CopyToRange:=Worksheets("FeuilleDestination").Range("Plage destination"),  _
                   Unique:=False

Pour enregistrer le classeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs ("Chemin")

Voilà quelques pistes à explorer.

[arnest]

Tu as raison, mon message à la lecture est peu explicite. Mais tu l'as très bien compris. avec les indications citées je n'arrive pas seule, mes connaissances en Vb sont trop faibles! ce qui me complique la tache