Discussion :

[Shin_no_Noir]

Bonjour à tous,
Je commande OOo Calc à l'aide de C++Builder, par le biais de Ole.
Comme ici : http://www.developpez.net/forums/sho...d.php?t=290788

Je cherche à copier une plage de cellules dans le presse-papier (juste les valeurs, pas les formules, ni les formats) et la coller dans un autre document Calc. J'ai bien trouvé ça dans la faq OOo mais je ne sais pas trop comment l'adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub SelectionCellule_Puis_Collage
  Dim oCC As Object , Cellule As Object
  Dim Args() As New com.sun.star.beans.PropertyValue 
 
  'Selection cellule C2
  oCC = ThisComponent.CurrentController 
  Cellule = oCC.ActiveSheet.getCellRangeByName("C2") 
  oCC.Select(Cellule) 
 
  'Collage
  Dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
  Dispatcher.executeDispatch(oCC.Frame, ".uno:Paste", "", 0, Args)
End Sub

Merci d'avance d'aider un newbie

[blondelle]

Salut Shin_no_Noir
Voici comment faire un copier coller sans passer par le presse papier:
Pour effectuer une copie d'une plage de cellule, nous devons définir la plage de cellule source (objet de classe com.sun.star.table.CellRangeAddress) et l'adresse de la cellule de destination (objet de classe com.sun.star.table.CellAddress).
Ensuite nous allons utiliser la fonction CopyRange(madestination, maselection)
madestination correspond à l'objet dans lequel nous avons définis la cellule de destination
Maselection correspond à l'objet dans lequel nous avons définis la plage de cellules

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
 
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");
 
vOOoMaDestination.OlePropertySet("Sheet", 0);
vOOoMaDestination.OlePropertySet("Column", 5);
vOOoMaDestination.OlePropertySet("Row", 5);
vOOoMaPlage.OlePropertySet("Sheet", 0);
vOOoMaPlage.OlePropertySet("StartColumn", 0);
vOOoMaPlage.OlePropertySet("StartRow", 0);
vOOoMaPlage.OlePropertySet("EndColumn", 1);
vOOoMaPlage.OlePropertySet("EndRow", 1);
vOOoMaFeuille.OleFunction("CopyRange", vOOoMaDestination, vOOoMaPlage);

[Shin_no_Noir]

Merci pour la réponse.
Cependant cette solution permet-elle de copier la plage dans un autre classeur ?

[blondelle]

Non je ne pense pas, mais la pour l'instant je n'ai rien d'autre a te proposer desole

[Shin_no_Noir]

Ok merci quand même
Je fais des essais avec getDataArray et setDataArray mais c'est pas gagné...