filtre auto dans macro.

[flo2002]

re bonjour à tous.

J'ai une macro qui ouvre un fichier et copie colle les info dans un autre fichier. jusque la tout va bien. Mon probleme est que je fais trois filtre sur la feuille base de donné dont un en variable tel que:
Selection.AutoFilter Field:=3, Criteria1:=dpt

et la ca plante....

une idée?
merci d'avance

 

[flo2002]

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

 

[flo2002]

Re : filtre auto dans macro.

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

 

[Kobaya]

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 ?

 

[flo2002]

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

 

[Kobaya]

Re : filtre auto dans macro.

voici ton code un peu modifié :

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
 
    ' mise en place des filtre
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:="SAP"
    Rows("13:13").Select
 
    'Selection.AutoFilter
    ' si tu exécutes la ligne ci-dessus, tu enlèves les filtres
    Selection.AutoFilter Field:=9, Criteria1:="<>OnCall Activities", Operator:=xlAnd
    Rows("13:13").Select
 
    'Selection.AutoFilter
    ' si tu exécutes la ligne ci-dessus, tu remets les filtres
    Selection.AutoFilter Field:=3, Criteria1:=dpt
 
    ' à partit d'ici je n'ai pas testé ton code...
    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
End Sub

 

[flo2002]

Re : filtre auto dans macro.

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