Patrick a écrit :
Bonjour,
sur ma 2.4 la ligne args1(0).Value = Cstr(Date) fait obstacle !
Patrick
Samuel Mounier (Liste CGO) a écrit :
sub ajoutdate
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = CreateUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "StringName"
args1(0).Value = Cstr(Date)
dispatcher.executeDispatch(document, ".uno:EnterString", "",
0,args1())
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0,
Array())
end sub
La combinaison de touche que j'ai associé est Ctrl T
Patrick,
Pris de doute j'ai testé en en fait ce code marche bien sur ma 2.4.0
sous windows XP.
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)
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
A+
--
Samuel Mounier
Formateur Centre de Gestion Océan
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
