Salut à vous,
j'ai reçu le mail ci-dessous d'un ami. Pouvez-vous m'aider pour les
réponses ? Merci !
Tajem
Bonjour,
j'essaie de faire avec OpenOffice2 une macro qui copie le contenu d'une
plage, et qui fait ensuite un collage spécial (copie seulement les
nombres) sur une autre plage.
1ère question :
Comment peut-on faire avec l'enregistreur de macros, pour copier des
cellules ? (les autres menus marchent mais pas celui-là, or avec OO1 ça
marchait bien !).
2ème question :
Comment améliorer la macro ci dessous, pour qu'elle fasse un collage
spécial (nombres seuls) et non pas un simple collage ?
sub essai
Dim oDocument As Object
Dim Spreadsheet As Object
Set oDocument = ThisComponent
Set Spreadsheet = oDocument.Sheets.getByIndex(0)
REM adresse source (UNO struct)
Dim mRangeAddress_src as New com.sun.star.table.CellRangeAddress
REM adresse cible (UNO struct)
Dim mCellAddress_dest as New com.sun.star.table.CellAddress
REM 2e feuille, C3:D4
With mRangeAddress_src
.Sheet= 0
.StartColumn = 0
.StartRow = 0
.EndColumn = 0
.EndRow = 10
End With
REM 1ère feuille, C3
With mCellAddress_dest
.Sheet = 0
.Column = 1
.Row = 0
End With
Spreadsheet.copyRange(mCellAddress_dest, mRangeAddress_src)
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
