Traitement de feuilles, cellules, avec tableur calc

Résolu
shaftjackson
Messages postés
11
Date d'inscription
lundi 8 août 2005
Statut
Membre
Dernière intervention
8 février 2007
- 6 févr. 2007 à 14:48
shaftjackson
Messages postés
11
Date d'inscription
lundi 8 août 2005
Statut
Membre
Dernière intervention
8 février 2007
- 6 févr. 2007 à 18:12
Bon, j'ai pu résoudre mon problème (en tout cas j'espère) en remplaçant
<!-- BEGIN TEMPLATE: bbcode_code -->

 
oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

<!-- END TEMPLATE: bbcode_code -->
Par
<!-- BEGIN TEMPLATE: bbcode_code -->

outilService = GetProcessServiceManager
oDispatcher = outilService.createInstance("com.sun.star.frame.DispatchHelper")

<!-- END TEMPLATE: bbcode_code -->

Je ne suis pas sure que ca marche car après chaque modification, je tombe sur un nouveau bug :s

Par contre, je suis confronté a un autre problème :

Je souhaite sélectionner une rangée de cellule et j'ai fait ceci :

For i = 0To oDocument.Sheets.Count - 1
Clipboard.Clear
Set Sheet = oDocument.Sheets(i)
oCells = Sheet.getCellRangeByName("A1:Z3000")'sélection des cellules
oDocument.Select(oCells)'collage dans le clipboard

 
<!-- END TEMPLATE: bbcode_code -->
Une fois le processus de debug arrivée à cette ligne :
<!-- BEGIN TEMPLATE: bbcode_code -->

oCells = Sheet.getCellRangeByName("A1:Z3000")

<!-- END TEMPLATE: bbcode_code -->

le reste de la procédure est zappé (je n'ai aucun message d'erreur) et il poursuit sont traitement habilutel.


Donc quelqu'un saurait-il si qui va pas ? Ca m'aiderait !


Merci

PS.
J'ai testé

Set oCells = Sheet.getCellRangeByName("A1:Z3000")

<!-- END TEMPLATE: bbcode_code -->
Mais je n'ai pas eu plus de succès :(

Just keep Cool N Have fUn

2 réponses

shaftjackson
Messages postés
11
Date d'inscription
lundi 8 août 2005
Statut
Membre
Dernière intervention
8 février 2007

6 févr. 2007 à 18:12
Trouvez !!
Il fallais que je remplace : Set Sheet = oDocument.Sheets(i)
par : Set Sheet = oDocument.Sheets.getByIndex(i)

Just keep Cool N Have fUn
3
shaftjackson
Messages postés
11
Date d'inscription
lundi 8 août 2005
Statut
Membre
Dernière intervention
8 février 2007

6 févr. 2007 à 14:53
Je me suis planté dans mon post précédent et comme je ne peux pas éditer/supprimer, je reprend ici :

Je souhaite sélectionner une rangée de cellule et j'ai fait ceci :

For i = 0 To oDocument.Sheets.Count - 1
Clipboard.Clear
Set Sheet = oDocument.Sheets(i)
oCells = Sheet.getCellRangeByName("A1:Z3000")'sélection des cellules
oDocument.Select(oCells)'collage dans le clipboard

 
<!-- END TEMPLATE: bbcode_code --> Une fois le processus de debug arrivée à cette ligne : oCells = Sheet.getCellRangeByName("A1:Z3000") <!-- END TEMPLATE: bbcode_code -->
le reste de la procédure est zappé (je n'ai aucun message d'erreur) et il poursuit sont traitement habilutel.

Donc quelqu'un saurait-il si qui va pas ? Ca m'aiderait !

Merci

PS.
J'ai testé : Set oCells = Sheet.getCellRangeByName("A1:Z3000")<!-- END TEMPLATE: bbcode_code -->
Mais je n'ai pas eu plus de succès :(

Just keep Cool N Have fUn
0