Discussion :

[Toubib5020]

Bonjour,
Je cherche à faire une macro qui récupère la valeur d'un champs dans un formulaire et de la placer dans une variable.
La macro envoyer un Email fonctionne mais il me manque cette opération.
Merci d'avance pour vos suggestions.

[zoom61]

Salut,

Avec quelque chose comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
oDocument = ThisComponent
oForm = oDocument.DrawPage.Forms.getByName("Standard") 'Standard est le nom du formulaire
valeur = oForm.GetByName("TextBox").EffectiveValue 'TextBox est le nom du champ

S'il y a une erreur remplacer EffectiveValue par CurrentValue.

Attention à la déclaration de la variable valeur, elle doit être string.

Cdlt.

[Toubib5020]

Merci à Zoom61,

Après plantage win10 et internet arrêté par les orages, je suis dans mes essais et pas trop de résultat.

Erreurs:
LibreOffice 5.3.4.2
Erreur d'exécution BASIC.
Une exception s'est produite :
Type: com.sun.star.container.NoSuchElementException
Message: .

Erreur d'exécution BASIC.
Propriété ou méthode non trouvée : DrawPage.

Je continue à chercher une solution, la macro fonctionne si on lui donne une valeur (string) manuellement.

[jurassic pork]

hello,
tu ne nous as pas tout dit :
Dans quel type de document se situe ton formulaire ? Calc ? writer ? Base ? autre ?

Ami calmant, J.P