Bonjour,
La lumière des Elfes a écrit :
çà doit etre sous mon nez mais j'y arrive pas !!!
voila un petit résumé de ma MACRO
sub essaie
Dim MonDocument As Object, LesFeuilles As Object, UneFeuille As Object,
MaCellule As Object
Dim oBoiteDialogue As Object,ExitOk AS integer
Dim ChampDirection AS Object
Dim Direction As String
monDocument = thisComponent
LesFeuilles = MonDocument.Sheets
UneFeuille = LesFeuilles.getByName("Feuille1")
MonDocument.currentController.activeSheet = uneFeuille
exitOK = com.sun.star.ui.dialogs.ExecutableDialogResults.OK
DialogLibraries.LoadLibrary("Dialogue")
oBoiteDialogue = CreateUnoDialog( DialogLibraries.Dialogue.Dialog1)
if oBoiteDialogue.Execute = exitOK then
' récupération des données
ChampDirection=oBoiteDialogue.GetControl("TextField1")
Direction=ChampDirection.Text
MaCellule=UneFeuille.getCellRangeByName("A1")
MaCellule.string= (direction)
end if
End Sub
donc mon but est, comme tu l'a compris que dans le champs "TextField1",
apparaisse ce qui se trouve dans la cellule A1 de ma feuille a chaque lancement
de la macro
Je mets mon grain de sel.
Il me semble que ta macro tente de faire le contraire de ce que tu
souhaites : elle récupère le contenu de la boite de dialogue
(Direction=ChampDirection.Text) et l'affecte à la cellule, erreur de
syntaxe mise à part (MaCellule.string= Direction).
Pour écrire dans un controle , il faut procéder ainsi :
leControle.Model.Text = "mon texte"
Essaie ça :
'après création du dialogue
'
'récupère la valeur de la cellule A1
MaCellule=UneFeuille.getCellRangeByName("A1")
DirectionTexte = MaCellule.string
'remplit le champ de la boite de dialogue
ChampDirection=oBoiteDialogue.GetControl("TextField1")
ChampDirection.Model.Text = DirectionTexte
if oBoiteDialogue.Execute = exitOK then
' récupération des données
'etc.
Agnès S.
etc
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
