Merci pour ta réponse, mais j'arrive pas a insérer ton exemple dans ma macro
voila je te transmets un résumé de ma macro, si tu peux m'aider !!!
çà 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
Merci de ton aide....
DAVID, Jean-Claude a écrit :
Bonjour,
A la relecture de ton message (et du mien), je crains d'avoir fait un
léger "hors sujet" ;-)))) Mon code correspond au remplissage d'une
textbox d'un formulaire. Pour une boite de dialogue, c'est quasiment
la même chose (code ci dessous)
Bon courage,
Jean-Claude
Sub Test
Dim oDialog As Variant 'Boite de dialogue de choix du fichier
'Crée la Boite de dialogue
oDialog = createUnoDialog(DialogLibraries.Standard._DlgSelFicXL)
'Modifie le texte du controle nommé "FileCtrl"
oDialog.Model.FileCtrl.Text = "Toto"
'Affiche la Boite de dialogue
oDialog.execute
'Referme la Boite de Dialogue
oDialog.endExecute()
End Sub
6 messages in org.openoffice.fr.progRe: [prog] Boite de dialogue
.jpg
