Samuel Mounier (Liste CGO) a écrit :
Patrick,
Pris de doute j'ai testé en en fait ce code marche bien sur ma 2.4.0
sous windows XP.
Bonjour Samuel,
En fait après essais ton code fonctionne aussi dans la mesure où le
point d'arrêt se manifeste après le collage du texte !!!
En fait après étude de ton code les seules actions que tu as généré en
plus sont celles des déplacements d'un point à un autre. (ça complique
un peu)
Ben j'ai pas fait exprès !!!
Tu peux tenter de placer le code suivant dans ta procédure principale
(sub main)
msgbox(Cstr(Date))
Tu verras que tu auras bien la date du jours en toute lettre dans un
boite de message
Exact
Du coup j'ai vérifié (avec un bol, un trêfle, un fer à cheval ...) et le
code fournit par l'enregistreur peut être nettoyé un peu ...
J'ai commenté tout ce qui concerne Args1 et cela fonctionne encore.
J'avoue avoir sous le coude le livre de Bernard et Laurent, mais il veut
pas s'ouvrir !!!!
Enfin l'important c'est que Serge Perrot ait une réponse à son problème.
Cordialement
Patrick
sub Date_du_jour
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
rem dim args1(0) as new com.sun.star.beans.PropertyValue
rem args1(0).Name = "ToPoint"
rem args1(0).Value = "$F$15"
rem dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = "=AUJOURDHUI()"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())
rem ----------------------------------------------------------------------
dim args4(1) as new com.sun.star.beans.PropertyValue
args4(0).Name = "By"
args4(0).Value = 1
args4(1).Name = "Sel"'
args4(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args4())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "SelectedFormat"
args6(0).Value = 10
dispatcher.executeDispatch(document, ".uno:ClipboardFormatItems", "", 0,
args6())
end sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
