Discussion :

[ConteZero]

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 :

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
' 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.

[SfJ5Rpw8]

essai de déclarer la constante xlOr au début de ton code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Const xlOr = 2

[ConteZero]

Et bien quelle efficacite!!
Merci a toi pour cette precision qui fonctionne parfaitement.
Pourrais tu m'expliquer pourquoi declarer cette variable?

Merci a toi!

[SfJ5Rpw8]

xlOR est une constante d'excel pas connue du VBScript ...

pour connaitre sa valeur, sous excel tu passe dans l'éditeur VBA ( ALT-F11) puis la fenêtre exécution (CTRL+G)

et tu utilise la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

?xlOr

dont le résultat est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 2

[ConteZero]

Salut,

merci pour ce complement d'informations!
Du coup j'en ai profiter pour utiliser la constante xlTopLeft.

A bientot