BCB - OpenOffice et AutoFilter

Bonjour :)

Je cherche de creer un AutoFilter
Quelle e la OleFunction pout ça? 8O

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Variant vOOoMonClasseur; Variant vOOoMaFeuille; Variant vOOoMaDestination; Variant vOOoMaPlage;   vOOoMonClasseur = vOOoDocument.OleFunction("getSheets"); vOOoMaFeuille = vOOoMonClasseur.OleFunction("GetByName", "Feuille1");   vOOoMaDestination = vOOoOpenOffice.OleFunction("Bridge_GetStruct", "com.sun.star.table.CellAddress"); vOOoMaPlage = vOOoOpenOffice.OleFunction("Bridge_GetStruct", "com.sun.star.table.CellRangeAddress");   vOOoMaPlage.OlePropertySet("Sheet", 0); vOOoMaPlage.OlePropertySet("StartColumn", 0); vOOoMaPlage.OlePropertySet("StartRow", 0); vOOoMaPlage.OlePropertySet("EndColumn", 1); vOOoMaPlage.OlePropertySet("EndRow", 1); vOOoMaFeuille.OleFunction("....AutoFilter...", vOOoMaPlage, 1);

---

Merci d'avance ;)
Pense a mettre les Balises de code le " # " ce sera plus lisible ;)

Ce la macro qui e genere pour AutoFilter

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

sub test rem ---------------------------------------------------------------------- rem define variables dim document as object dim dispatcher as object rem ---------------------------------------------------------------------- rem get access to the document document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")   rem ---------------------------------------------------------------------- dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "ToPoint" args1(0).Value = "$C$3:$I$11"   dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())   rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:DataFilterAutoFilter", "", 0, Array()) end sub

---

Pour la seconde fois pense aux Balises de code s'il te plait c'est le " # " ce sera plus lisible merci ;)