Bonsoir,
Tout est dans le titre, je souhaiterai avoir de l'aide sur la façon dont je pourrai réalisai la chose, sachant que j'ai déjà pas mal fouillée sur la le net mais il me semble qui faut avoir au quelque notions en programmation pour comprendre comment le faire .
Sachant que je n'ai pas de notions dans ce domaine là et donc ça me complique la tâche tout ce que j'ai compris c'est que je dois crée ma boite de dialogue ( ce qui n'est pas un problème ) et surtout écrire le code dans le module, voilà les bouts de code que j'ai trouvée ici et là que je pense sont une partie de la solution :
Trouver ici : http://www.debugpoint.com/2015/01/wo...-macro-part-1/
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Dim oDialog1 As Object Sub StartDialog1() BasicLibraries.LoadLibrary("Tools") oDialog1 = LoadDialog("Standard", "Dialog1") oDialog1.Execute() End Sub Sub readDialog1() Dim cell_val oT1 = oDialog1.GetControl("TextField1") cell_val = ThisComponent.Sheets(0).getCellByPosition(0,0) msgbox cell_val.String & chr(13) & "Value from controls: " & oT1.Text End Sub
Trouver ici : https://forum.openoffice.org/fr/foru...51827&p=280916
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 sub demarrage(event) docbase = thisdatabasedocument docbase.CurrentController.connect() docbase.FormDocuments.getByName("Formulaire accueil").open() end sub
Le problème c'est que je ne sais du tout comment tout cela fonctionne, sans ça si quelqu’un aurait une solution pour lancer une boite de dialogue sans passer par LibreOffice, je suis preneur sachant que je tourne sous Linux .
Merci et bonne soirée / journée .
Partager