Bonjour, Merci pour cette piste même si une solution sans macro aurait eu ma préférence étant donné que je suis très loin de maîtriser la programmation des macros.
Donc j'ai essayé et légèrement modifié sub RecopieC1Objet1DsA1Objet2 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( "C1" ) ' accès second objet oSecondOLE = oDoc.EmbeddedObjects.getByName( "Objet2" ) oSecondSheet = oSecondOLE.Model.Sheets.getByName( "Feuille1" ) oSecondCell = oSecondSheet.getCellRangeByName( "A1" ) 'exemple : affecte le contenu d'une cellule de Objet1 'dans une cellule de Objet2 oSecondCell.value = oFirstCell.value end sub Cependant, comme je n'y connais pas grand chose et que ce n'est pas exactement ce que je veux obtenir, j'ai encore quelques questions. Avec cette macro la mise à jour n'est pas dynamique et de plus si je l'exécute, il faut éditer l'objet 2 (double clic sur l'objet) pour que la bonne valeur soit affichée. Est-il possible de rendre dynamique ce lien entre ces 2 cellules de ces 2 objets ? Merci de votre aide. Serge. Le 27 avril 2008 22:27, Francois Gatto <[EMAIL PROTECTED]> a écrit : > 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] > >