Discussion :

[gregml]

Bonjour,

Je sais désormais :
- ouvrir des fenêtres de dialogue qui demande à l'utilisateur des renseignements (en l'occurence dans mon code : demander un nombre de lignes et de colonnes)
- tracer un tableau, sur le document Writer ouvert, du nombre de lignes et de colonnes entrées par l'utilisateur
- positionner le curseur sur l'ensemble des cellules du tableau
- recopier le contenu des cellules
et ceci, grâce au code suivant :
Option Explicit

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Dim l As Variant,c As Variant
  Dim MaTable As Object
    Dim Mondocument As Object
    Dim Montexte As Object
    Dim Moncurseur As Object    
    Dim MonContenu as Object 
   Dim oDoc As Object, maTable As Object
   Dim maCellule As Object
   Dim monTexte As Object, monCurseur As Object, curseurVisible as Object
   dim i as integer, j as integer
 
Sub Main
 
   l = InputBox("Nombre de lignes", 17)
   c = InputBox("Nombre de colonnes", 17)
   creerTableau
 
    For i=0 to 1
For j=0 to 1
   positionnerCurseur(i,j)
   msgbox("OK")
Next j
Next i
 
RecopierDonnees
 
End Sub
 
Sub creerTableau
 
    Mondocument = ThisComponent
    Montexte = Mondocument.text
    Moncurseur = montexte.createTextCursor
    MaTable = Mondocument.createInstance("com.sun.star.text.TextTable")
    MaTable.initialize(l,c) ' nombre de : lignes, colonnes
    MonTexte.insertTextContent(MonCurseur, MaTable, false)
End Sub
 
Sub positionnerCurseur(A As Integer,B As Integer)
   oDoc = ThisComponent
   curseurVisible = oDoc.CurrentController.ViewCursor
   maTable = oDoc.TextTables.getByName("Tableau1")
   maCellule = maTable.getCellByPosition(A,B)
   monTexte = maCellule.Text
   monCurseur = monTexte.createTextCursor
   curseurVisible.gotoRange(monCurseur, False)
End Sub 
 
Sub RecopierDonnees
    Dim i as integer, j as integer
 
   c = CLng(c)
   l = CLng(l)
 
       For i = 0 to c-1
          For j = 0 to l-1
          MonCurseur.gotoEnd(false)
          MonContenu = MaTable.getCellByPosition(i,j)
          MonTexte.insertString(monCurseur,MonContenu.String & " ,",false)     
          Next j
       Next i
End Sub

Mon problème est le suivant :
-> ce code fonctionne correctement pour ma configuration PC : Windows XP Edition Familiale Version 2002 Service Pack 3 / Apache OpenOffice 4.1.0
-> mais pas pour mon Mac à la configuration suivante : Mac OS X 10.6.8 (10K549) / LibreOffice Version: 4.2.5.2

Comment se fait-ce s'il vous plaît ?

Auriez-vous une explication s'il vous plaît ? D'avance, merci,
Greg

[zoom61]

Bonjour,

Je viens de faire un test avec LibreOffice 4.4.4.3 sous Debian Jessie et cela fonctionne correctement...
Avez-vous déinstallé et réinstallé LibreOffice ? Quelle version de Java avez-vous sur le poste ?

[gregml]

Merci de votre réponse... on ne peut plus rapide ! Je teste la désinstallation dès que j'ai accès à monMac.

En tout cas, un grand merci,

Greg