filtre auto dans macro.

Re : filtre auto dans macro.

Je crois bien que je n'utilise pas le bon code, il ne fait pas le filtre.
Si quelqu'un a une idée ou a deja fait ce genre de chose je suis prenneur.
Merci

Re : filtre auto dans macro.

je ne comprend pourquoi cela marche avec l'enregistreur et pas en code?

Re : filtre auto dans macro.

salut floflo,

peux-tu envoyer un fichier ?

quand tu dis que ça plante, c'est qu'il y a un bug, ou ça ne fait pas ce que tu attends ?

Re : filtre auto dans macro.

Pour le fichier je crois c'est un peu chaud car il est trop lourd je pense. par contre je fais suis ma macro et je m'explique:
Sub extract_afu()


Dim feuil As Worksheet
Dim pa As String
Dim derlign As Long
Dim dpt As String
Dim fichpol As String
'
calculate
Application.DisplayAlerts = False
Sheets("extract_AFU").Visible = True
dpt = Sheets("garde").Range("e5").Value
pa = Sheets("liens").Range("c21").Value
fichpol = Sheets("garde").Range("b10").Value
Workbooks.Open Filename:=pa

Rows("13:13").Select


Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="SAP"
Rows("13:13").Select


Selection.AutoFilter
Selection.AutoFilter Field:=9, Criteria1:="<>OnCall Activities", Operator _
:=xlAnd
Rows("13:13").Select


Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=dpt

Range("A1").Select


derlign = Range("g65536").End(xlUp).Row

Range(Cells(13, 11), Cells(derlign, 11)).Select
Selection.Copy
Windows(fichpole).Activate
Sheets("extract_AFU").Select
Range("F1").Select
ActiveSheet.Paste
Windows("pa").Activate

j'ouvre un fichier en fonction du mois, je fais un filtre à partir de la ligne 13 qui est le titre. Ici j'ai un filtre avec variable.
Ensuite, je selectionne ma plage dans la feuille et la je n'arrive pas a changer de feuille...
donc deux problemes, un sur les filtres et un sur le changement de feuil.
Un probleme de variable?
MERCI

Re : filtre auto dans macro.

voici ton code un peu modifié :

Re : filtre auto dans macro.

Merci pour le reste j'ai trouver je test ca de suite.