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