[fr-users] Retour à la ligne après AutoText

Bonjour à vous,

Voici qu'il m'a pris l'envie de charger un groupe d'auto-textes à partir 
d'une table de base de données. Tout se passe parfaitement bien, je 
retrouve mes petits avec leur clé d'accès, libellé court et texte de 
remplacement, tout bien.

Par contre lorsque je les utilise, j'obtiens systématiquement un retour 
à la ligne après le texte de remplacement. Quelqu'un a-t-il une idée ?

Lorsque j'utilise d'autres auto-textes, livrés avec LibreOffice, tout se 
passe correctement et le curseur reste bien sagement à côté du dernier 
caractère inséré.

Merci d'avance si vous pouvez me mettre sur une piste.

Thierry

_Annexes_ :

*Code de la fonction d'insertion*

' Une entrée AutoText se compose de :
' - Le code saisi par l'utilisateur                    - CodeFourniture
' - Un titre résumant le contenu de remplacement    - Désignation
' - Le contenu de remplacement                        - Désignation & 
PrixUnitaire,

Sub StoreAutoText(sDesignation As String, sPrixUnitaire As String, 
sCodeFourniture As String)
    DIM oGroup As Object
    Dim oEntry As Object
    Dim oTextRange As Object

' Définition du texte de remplacement. Par rapport à la désignation, 
j'ajoute le prix pour
' l'exploiter ensuite par une macro.
    oTextRange = createUnoService("com.sun.star.text.TextRange"
    oTextRange.String = sDesignation & " " & sPrixUnitaire

    oGroup = oAutoTextContainer.getByName(sAutoTextGroupName)
    oEntry = oGroup.insertNewByName(sCodeFourniture, sDesignation, 
oTextRange )
End Sub

*Info LibreOffice*

Version: 5.4.5.1
Build ID: 79c9829dd5d8054ec39a82dc51cd9eff340dbee8
Threads CPU : 8; OS : Mac OS X 10.13; UI Render : par défaut;
Locale : fr-CH (fr_CH.UTF-8); Calc: group



--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés