VBA - Problème avec les filtres avancés

Le 15/03/2017 à 08:25

Bonjour à tous,

J'ai besoin de votre, d'habitude en fouillant le site et le forum j'arrive à m'en sortir, mais là je suis bloqué.

Je dois être trop gourmand, je fais un trop grand pas en avant !

Voici mon problème, je récupères des résultats de contrôles dans une fichier Table Controle.xls (joint), je veux créer une macro qui va me permettre d'extraire les résultats et de les copier dans le fichier de chaque produit fini (un exemple joint, CPH BL 17.xlsx), j'ai presque 100 produits finis, d'où l'utilité de la macro !

Mais cela coince et je ne sais pas pourquoi, je voudrais que cette macro soit dans mon classeur personnel.

Et tant que j'y suis, si lors de la prochaine extraction, je pouvais copier les données (dans le fichier CPH BL 17.xlsx) de l'onglet Extraction au niveau de la première ligne vide du tableau dans l'onglet CPH BL ce serait le top

Voici ma "macro" :

Sub Extraction_Controles_PF()

'Extraction des contrôles PF depuis Table Controle

'Ouvrir Table Controle qui a été enregistré sur c:\FCPF\Excel Pratique

Workbooks.Open ("C:\FCPF\Excel Pratique\Table Controle.xls")

'Ouvrir FCPF CPH BL

Workbooks.Open("C:\FCPF\Excel Pratiqie\CPH BL 17.xlsx").Activate

'Récuperation des contrôles

Workbooks("Table Controle.xls").Sheets("A").Cells.AdvancedFilter Action:= _

xlFilterCopy, CriteriaRange:=Range("A1:A2"), CopyToRange:=Range( _

"B4:N4"), Unique:=False

' Enregistrer et fermer FCPF CPH BL