Discussion :

[GameOver]

Bonjour a tous

J'ai un probleme pour ajouter l'autofilter sur la 1ere ligne de mes documents excel.

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
19
20
 
  Variant vMSExcel, vFileName, vXLWorkbooks, vXLWorkbook, vWorksheet, vSheetName, vCells ;
 
  vMSExcel = Variant::CreateObject("Excel.Application");
 
  vFileName = "C:\\bla.xls";
 
  vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
  vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);
 
  vSheetName = "Feuille1";
  vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
 
  vCells = vWorksheet.OlePropertyGet("Cells");
 
  vCells.OlePropertySet("HorizontalAlignment", xlCenter);
  vCells.OlePropertySet("VerticalAlignment", xlCenter);
  vCells.OlePropertySet("WrapText", true);
  vWorksheet.OlePropertySet("EnableAutoFilter", true);
  vWorksheet.OlePropertySet("AutoFilter",true);   //erreur lors de la compilation (Membre introuvable)

Je ne sais pas du tout comment faire.
Toute aide est la bienvenue.
Merci d'avance.

[Bob56]

Salut,

Essaye d'utiliser OleProcedure au lieu d'un OlePropertySet.

Si l'erreur persiste, travail avec ton vCells.

Good Day

[GameOver]

Salut,

Merci pour ta réponse mais ça ne marche toujours pas.
J'ai tout essayé (enfin presque sinon ca marcherait)

Code :

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

1
2
3
 
vWorksheet.OleProcedure("AutoFilter",true);    //Membre introuvable
vCells.OleProcedure("AutoFilter",true);        //Une excepetion s'est produite

Je suis toujours preneur pour n'importe quelle solution.
Merci d'avance

[Bob56]

Salut,

tu dois enlever true après AutoFilter.

Si AutoFilter est true alors il va passé à false
sinon il va passé à true.

Aussi cette commande ne fonctionne plus si ta feuille est protégé.

Bonne journée.

[GameOver]

Salut,

Merci beaucoup pour ton aide.
Ca fonctionne bien et ca m'enleve une epine du pied.
Encore merci.
Bonne journée.