VBScript : AutoFilter sur une colonne Excel.
Bonjour a tous/toutes!
Je me permet de vous solliciter puisque malgré les nombreux forums que j'ai visite, je n'ai pas trouve de solutions a mon petit problème...que voici :
J'ai un fichier Excel d'une colonne, contenant plusieurs milliers de lignes. J'aimerai pouvoir appliquer des filtres afin qu'il ne me reste plus que des informations uniques qui sont : "Computer name" et "HDD serial number".
Voici mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| ' ouverture du fichier excel
Fichier_XLS = "c:\test.xls"
Feuille_XLS = "test"
set objExcel = WScript.CreateObject("EXCEL.application")
objExcel.Visible = True
objExcel.Workbooks.Open Fichier_XLS
objExcel.Sheets(Feuille_XLS).Activate
objExcel.Columns("A:A").Select
xlFilterInPlace = 1
xlFilterCopy = 2
uniqueRecords = true
objExcel.Selection.AdvancedFilter xlFilterCopy, , objExcel.columns("B:B"), uniqueRecords
objExcel.Columns("B:B").Select
objExcel.Selection.AutoFilter 1,"=Computer name*",xlOr,"=HDD serial number*" |
Ceci fonctionne jusqu'à la sélection de la colonne B, le problème vient de Autofilter. Si je ne met qu'un seul critère, cela fonctionne. Des que j'essaye des combinaisons avec "xlOr", ca capote....les erreurs sont variées, en fonction de la ou j'essaye de mettre des parenthèses ou des guillemets...
J'espère avoir été suffisamment explicite et vous remercie d'avance pour le les réponses que vous pourriez m'apporter!
A bientôt.
