Bonjour
Nouveau venu dans le développement Obasic pour Calc, je vous sollicite car j'ai systématiquement un message d'erreur pour afficher une boite de dialogue. BasicLibraries.LoadLibrary("Tools") me retourne à chaque fois une erreur comme si la librairie ne pouvait être chargée.
J'ai posté un exemple très basic pour lequel l'erreur se produit
voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 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
Merci pour votre aideWorkFocus.ods
Partager