Discussion :

[vandman]

Bonjour,

J'ai les deux fonctions ci-dessous.

Je voudrais pouvoir passer en paramètre, une feuille du document et les autres paramètres nécessaires.
Le seul problème est que pour pouvoir exécuter ces fonctions il faut que j'utilise:

• ThisComponent.CurrentController

A la place de ThisComponent.CurrentController , j'ai essayé de passer une feuille en tant qu'objet en faisant comme ceci:
Pour la fonction de tri: document = Feuille (en tant qu'objet)
Pour la fonction d'enregistrement: document = Feuille (en tant qu'objet)
Mais ca n'a pas fonctionné.

Est-ce que quelqu'un sait comment faire pour remplacer ThisComponent.CurrentController par la feuille que je désire?

Fonction de trie de la feuille active. Je voudrais pouvoir trier une feuille sans avoir à lactiver.

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
sub tri (colonne as integer)
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(7) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ByRows"
args1(0).Value = true
args1(1).Name = "HasHeader"
args1(1).Value = true
args1(2).Name = "CaseSensitive"
args1(2).Value = false
args1(3).Name = "NaturalSort"
args1(3).Value = false
args1(4).Name = "IncludeAttribs"
args1(4).Value = true
args1(5).Name = "UserDefIndex"
args1(5).Value = 0
args1(6).Name = "Col1"
args1(6).Value = colonne
args1(7).Name = "Ascending1"
args1(7).Value = true
 
dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args1())
end sub

Fonction de sauvegarde de la feuille "NonFeuille". Je voudrais éviter d'avoir à activer la feuille pour la sauvegarde.

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
sub EnregistrementFichier (SaveFile as string, NomFeuille as object, FeuilleOrigine as object)
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
'dim dispatcher as object
Dim sURL as string
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent
ThisComponent.CurrentController.ActiveSheet = NomFeuille
 
sURL = ConvertToURL(SaveFile)
rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FilterName"
args1(0).Value = "Text - txt - csv (StarCalc)"
args1(1).Name = "FilterOptions"
args1(1).Value = "59,34,76,1,,0,false,true,true"
 
document.storeToURL(sURL, args1)
ThisComponent.CurrentController.ActiveSheet = FeuilleOrigine
 
end sub

Cordialement,
Vandman

[zoom61]

Salut,

Je ne sais pas si j'ai bien compris la problématique, mais pourquoi ne pas utiliser le code suivant pour sélectionner la feuille ?

Code :

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

1
2
3
4
5
Sub ChangementFeuille(nomFeuille as String)
    monDocument = ThisComponent
   lesFeuilles = monDocument.Sheets
   uneFeuille = lesFeuilles.getByName(nomFeuille)
End Sub

[vandman]

Bonjour Zoom61,

Il me semble deja avoir essaye cette solution, cf discussion que nous avons deja eu ensemble
J avais essaye de passer l objet feuille en parametre pour eviter d avoir a refaire toute les declarations, comme ceci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sub macroALancer
   Dim uneFeuille as o
   monDocument = ThisComponent
   lesFeuilles = monDocument.Sheets
   uneFeuille = lesFeuilles.getByName(nomFeuille)
   `appele de la fonction
   ChangementFeuille(uneFeuille)
end sub
 
Sub ChangementFeuille(nomFeuille as object)
Dim FeuilleATrier as object   
FeuilleATrier = nomFeuille `l egalite ici est superflux, mais c est pour l exemple
End Sub

Je pense que c est assez similaire au code que tu poposes. n est ce pas?

ca n a pas fonctionne.

j essayerai tout de meme en redeclarant tout comme tu le suggeres, pour voir si ca passe.

Cordialement,
vandman

[vandman]

Bonjour,
Ça ne fonctionne pas.

Pour faire simple, j'ai deux feuille, Feuille 1 et Feuille 2.

Je suis sur la feuille 1. Pour mon traitement, j'ai besoin de trier la feuille 1 et 2 selon les critères de colonne, exécuter un traitement sur la feuille 2 et l'enregistrer au format CSV.
Ceci sans avoir a passer de la feuille 1 à la feuille 2, puis revenir à la feuille 1.

Le problème est que cette commande: dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")et celle ci: ThisComponent.CurrentController.ActiveSheet = NomFeuillene fonctionne que sur une feuille active.
Je ne veux pas activer les feuille sur lesquelles je fait mes traitements. Comment faire pour trier une feuille non active et enregistrer un feuille non active au format CSV et encodé en UTF8?

Cordialement,
Vandman

[jurassic pork]

hello,
voici un exemple de tri sans utiliser le DispatchHelper

fonction de tri avec comme paramètre le nom de la feuille à trier et la plage de cellules sur laquelle effectuer le tri:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub SortRange(Nomfeuille as string, Plage as String)
  Dim oSheetDSC,oDSCRange  As Object
  Dim aSortFields(0) As New com.sun.star.util.SortField
  Dim aSortDesc(0) As New com.sun.star.beans.PropertyValue
  oSheetDSC = ThisComponent.Sheets.getByName(NomFeuille) '
  oDSCRange = oSheetDSC.getCellRangeByName(Plage)
  aSortFields(0).Field = 0 ' première colonne
  aSortFields(0).SortAscending = FALSE ' tri décroissant
  aSortDesc(0).Name = "SortFields"
  aSortDesc(0).Value = aSortFields()
  oDSCRange.Sort(aSortDesc())
End Sub

appel de la fonction :

Code :

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

1
2
3
4
 
Sub Tri()
SortRange("Personnes","A1:C25")
End Sub

A voir si cela est suffisant pour le tri que tu veux faire sachant que l'on peut ajuster le tri avec des aSortFields.

Ami calmant, J.P