Re: [prog] Boite de dialogue

Thu, 07 Jul 2005 09:55:04 -0700

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

Répondre à