yes avec votre aide et la nuit qui porte conseil, aujourd'hui au bureau, j'ai réussi a faire ce que je voulais

merci de l'aide que vous m'avez apporté je vous envoie le code de l'exemple de ma macro définitive qui marche et qui me permets récupérer les données qui se trouve sur une cellule d'une feuille de calc !!! çà pourra peut etre servire a quelqu'un on sais jamais !!!

a plus

Voila la MACRO comme tu me l'a dit : J'ai crée un Document Calc. Dans la Bibliothèque "standard" de ce fichier, j'ai crée un module code "Module1" et un Module Boite de dialogue "Dialog1". Dans ce dernier module, j'ai crée une boite de dialogue ( pour l'exemple) avec un Champ de contrôle "zone texte "TextField1" et 2 boutons le premier Ok et le 2e Annuler

Ce qui fait qu'a chaque fois que je lance ma macro le champ de contrôle "TextField1" contient les données qui se trouve dans la cellule A1 de ma feuille "Feuille1" du document Calc

ce qui etait le but que je recherchais (interessant s'il y a plusieurs cellule et que l'on veux n'en modifier qu'une)

_Le Code contenu dans le "Module1"_

Option Explicit

sub essai Dim MonDocument As Object, LesFeuilles As Object, UneFeuille As Object, MaCellule As Object, MonCurceur As Object Dim oBoiteDialogue As Object, ValeurChamp AS Object Dim Valeur As String Dim Cellule_A1 As Variant Dim ExitOk As integer

monDocument = thisComponent LesFeuilles = MonDocument.Sheets UneFeuille = LesFeuilles.getByName("Feuille1") MonDocument.currentController.activeSheet = uneFeuille

exitOK = com.sun.star.ui.dialogs.ExecutableDialogResults.OK DialogLibraries.LoadLibrary("Standard") oBoiteDialogue = CreateUnoDialog( DialogLibraries.Standard.Dialog1)

MaCellule=UneFeuille.getCellRangeByName("A1") MonCurceur=MaCellule.createTextCursor MonCurceur.gotostart(true) Cellule_A1=MonCurceur.string

oBoiteDialogue.Model.TextField1.text =Cellule_A1

if oBoiteDialogue.Execute = exitOK then

' récupération des données

ValeurChamp=oBoiteDialogue.GetControl("TextField1") Valeur=ValeurChamp.Text MaCellule=UneFeuille.getCellRangeByName("A1") MaCellule.string= (Valeur)

end if End Sub