Bonjour,
Serge DAUPHINOT a écrit :
Bonjour,
Je cherche s'il est possible dans un fichier texte, si l'on a 2 objets OLE
classeur non liés à des fichiers externes (c'est-à-dire que tout est stocké
dans le même fichier de traitement de texte) de faire référence, dans l'un
des objet, à une cellule de l'autre objet et, si oui, comment ?
J'ai beau cherché, je sèche.
D'avance merci.
Serge.
Je ne sais s'il existe d'autres moyens, mais par macro c'est possible.
Voici une idée :
sub Add2CellEmbedded
dim oDoc as object
dim oFirstOLE as object
dim oFirstSheet as object
dim oFirstCell as object
dim oSecondOLE as object
dim oSecondSheet as object
dim oSecondCell as object
dim oResultCell as object
oDoc = thisComponent
' accès premier objet
oFirstOLE = oDoc.EmbeddedObjects.getByName( "Objet1" )
oFirstSheet = oFirstOLE.Model.Sheets.getByName( "Feuille1" )
oFirstCell = oFirstSheet.getCellRangeByName( "D6" )
' accès second objet
oSecondOLE = oDoc.EmbeddedObjects.getByName( "Objet2" )
oSecondSheet = oSecondOLE.Model.Sheets.getByName( "Feuille1" )
oSecondCell = oSecondSheet.getCellRangeByName( "D7" )
'exemple : somme des 2 cellules
'et la place dans une cellule de l'objet 1
oResultCell = oFirstSheet.getCellRangeByName( "D8" )
oResultCell.value = oFirstCell.value + oSecondCell.value
end sub
Bien sûr il conviendrait de vérifier l'existence des objets, de leurs
noms et de leurs contenus.
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
