Re-bonjour,
Toujours pas de super génie pour m'aider à débuger ce petit programme?
Un bug apparaît au niveau du filtre élaboré.
Merci au super developpeur qui va me permettre d'avancer mon projet.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 Dim xl As Excel.Application Dim wbk As Excel.Workbook Set xl = Excel.Application 'ouverture de l'application With xl .Visible = True End With 'ouverture du fichier Set wbk = xl.Workbooks.Open("C:\test.xls") With wbk.Sheets("sheet1") wbk("sheet1").Columns("A:F").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets( _ "CRITERES DE FILTRE AAA").Range("B3:F4"), CopyToRange:=Range("H1"), Unique _ :=False wbk("sheet1").Columns("L:L").ColumnWidth = 11.29 End With 'fermer et sauvegarder wbk.Save wbk.Close xl.Quit 'Désallocation mémoire Set xl = Nothing Set wbk = Nothing End Sub
Partager