Bonjour,
Merci Pierre-Yves c'est exactement ce que je cherchais. :-)
Bonne fin de journée.
Le 14/12/2014 15:54, pierre-yves samyn a écrit :
dim oBarre as object
dim oCoord as object
Dim Trav as variant
oBarre =
ThisComponent.CurrentController.Frame.LayoutManager.GetElement("private:resource/statusbar/statusbar")
oCoord = oBarre.RealInterface.AccessibleContext.getAccessibleChild(1)
Trav = split(oCoord.Text, ",")
print Trav(0) & "," & Trav(1) & "," & left(Trav(2), 2) & " - " &
mid(Trav(2) , 3) & "," & Trav(3) & "," & Trav(4)
End Sub
--
Didier Dorange-Pattoret
http://www.dmaths.org
Soutenez le projet Dmaths : rejoignez le club ou faites adhérer votre
établissement !
http://www.dmaths.org/documentation/doku.php?id=presentation:club
Seuls des formats ouverts peuvent assurer la pérennité de vos documents.
J'ai signé l'appel pour l'interopérabilité dans l'Éducation nationale de
@aprilorg. Et vous ? http://formatsouverts.education/#InteropEduc
--
Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour savoir comment vous
désinscrire
Les archives de la liste sont disponibles à
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés
