Filtre élaboré (excel-vba)

Hello tout le monde!

Est-il possible de créer un filtre élaboré afin d'aller chercher des données dans un classeur et de les coller dans un autre classeur ?

voici mon code pour faire cette manipulation mais en étant dans le même classeur:

Code:

---

1 2 3 4 5 6 7 8

Sub Export()     Sheets("DATA").Columns("A:Q").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:B2"), CopyToRange:=Columns("E:Q"), Unique:=False     End Sub

---

Merci

Bonjour,

Citation:

---

Est-il possible de créer un filtre élaboré afin d'aller chercher des données dans un classeur et de les coller dans un autre classeur ?

---

Il suffit de préciser la filiation totale (classeur+feuille+plage de cellules) de la plage source et celle de la plage cible. Cela vaut bien entendu pour la plage des critères
Il faut éviter de référencer les colonnes plutôt que la plage exacte aussi bien pour la source que pour la cible.

A lire Les filtres avancés ou élaborés dans Excel

Bonjour,

un exemple que je viens justement d'écrire à l'instant dans un de mes projets

ShSource est dans le classeur contenant une BDD
ShDest possède les critères (ligne 1 et 2) et reçoit l'export à partir de la ligne 6 (les étiquettes d'export sont en ligne 5 sur 2 colonnes)

Code:

---

1 2 3 4 5 6 7

With ShDest ShSource.UsedRange.AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=.Range("A1").CurrentRegion, _ CopyToRange:=.Range("A5:B5"), _ Unique:=False End With

---

bonjour,
http://www.developpez.net/forums/d13...s/#post7481714

Great, ça marche! Merci pour toutes vos réponses! =)

Bonjour,
pense aux autres et donnes ta solution!