Loop Unfilter - VBA

Version imprimable

Loop Unfilter - VBA

Bonjour,

Je souhaite automatiser pour plusieurs fichiers identiques, un unfilter pour la colonne A de la feuil Para.

j'ai le code qui fonctionne pour un seul fichier correctement mais pas lorsque je fais une loop. Je n'ai pas de message d'erreur mais le changement ne s'effectue pas en vérifiant le résultat.

Voici le code qui fonctionne pour un seul fichier:
Code:

1 2 3 4 5 6 7 8 9 10 Sub unfilterr() Dim y As Workbook, myfile, FolderPath, path Dim ws As Excel.Worksheet Set y = Workbooks.Open("Z:\VBA\Copie de Devis.xlsx") With y.Worksheets("Para RF") If Not y.Worksheets("Para RF").AutoFilter Is Nothing Then y.Sheets("Para RF").Range("A1").AutoFilter Field:=1 End If End With End Sub
Mais en faisant la loop suivante, pas de modification obtenue:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 Sub unfilter1() Dim y As Workbook, myfile, FolderPath, path Dim ws As Excel.Worksheet '## Open workbooks first: Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual FolderPath = "Z:\VBA\PARA\" path = FolderPath & "*.xls*" myfile = Dir(path) Do While myfile <> "" Set y = Workbooks.Open(path) Set ws = y.Worksheets("Para RF") With ws If Not ws.AutoFilter Is Nothing Then y.Sheets("Para RF").Range("A1").AutoFilter Field:=1 End If End With myfile = Dir() y.Close saveChanges:=True Loop MsgBox ("Task Complete") End Sub
Pourquoi j'arrive pas à automatiser ce code? quelles sont les raisons pour ne pas pouvoir unfiltrer la colonne?

Merci d'avance pour votre aide!

merci pour vos suggestions.

Cheers!!

Salut,

voici un bout de code qui ouvre et ferme les fichiers d'un dossier.
Après tu fais le traitement que tu veux entre les deux instructions.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub Fichiers() Application.ScreenUpdating = False Dim myPath As String, myFile As String myPath = ThisWorkbook.Path myFile = Dir(myPath & "\*.xls*") c = 1 Do While myFile <> "" 'ouverture du fichier Workbooks.Open myFile 'traitement ... 'fermeture du fichier Workbooks(myFile).Close SaveChanges:=False Loop End Sub
Attention, il me semble que sur cette ligne

Code:

If Not ws.AutoFilter Is Nothing Then

Le ws est de trop, tu es dans un bloc with ws end with

07/06/2017, 09h30
S.Mag

Bonjour,
Merci pour la réponse. Mais je ne comprends pas le c=1 pourquoi?
et si j'enlève le ws autofilter marche plus devient non defini alors j'ai enlevé le with ws et gardé #ws.Autofilter#
mais est ce qu'il faut mettre #savechanges = False?#
07/06/2017, 09h51
S.Mag

en exécutant le code j'ai remarqué que que le premier fichier de la liste à été modifié!!
le problème est bien donc dans ma loop non? et j'ai remarqué qu'il répète la loop sur le premier fichier uniquement!
sachant que je n'ai pas de message d'erreur! trop bizarre!

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
myFile = Dir(myPath & "\*.xls*")
Do While myFile <> ""        'ouverture du fichier
       with Workbooks.Open( myFile)
        'traitement ...
        'fermeture du fichier
        .Close SaveChanges:=False 
     end with
myFile = Dir
Loop

07/06/2017, 10h51
S.Mag

j'ai essayé mais toujours le même problème! pas de message d'erreur et pas de modification.

Voici le code que j'excecute, ceci ne modifie pas les filitres, maintenant pour aucun

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub unfilter1()
Dim y As Workbook
Dim myfile, myExtension, myPath
Dim ws As Excel.Worksheet
 
'## Open workbooks first:
Application.ScreenUpdating = False
  Application.EnableEvents = False
  Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
    myPath = "Z:\VBA\Test\"
 
  If myPath = "" Then GoTo ResetSettings
 
'Target File Extension (must include wildcard "*")
  myExtension = "*.xls*"
 
'Target Path with Ending Extention
  myfile = Dir(myPath & myExtension)
 
 
 
 
 
 
 
 Do While myfile <> ""
 
Set y = Workbooks.Open(myPath & myfile)
 
'Set ws = y.Worksheets("Para RF")
With y.Worksheets("Para RF")
        If Not y.Sheets("Para RF").AutoFilter Is Nothing Then
                y.Sheets("Para RF").Range("A1").AutoFilter Field:=1
        End If
    End With
 
myfile = Dir()
    y.Close saveChanges:=False
    Loop
 
 
    MsgBox ("Task Complete")
 
ResetSettings:
  'Reset Macro Optimization Settings
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
 
End Sub