Ubuntu-fr

DUCCA

LIBRE OFFICE - CALC - macro pour copier/coller

Bonjour,

Pour suivre des dossiers j'ai fais quelques macro, dont une qui copie la date du jour pour la recopier dans la cellule ad-hoc.

La macro viens de l'enregistrement automatique et fonctionne...... jusqu'à ce que je ferme le fichier.
Ensuite lorsque je veux l'utiliser elle ne copie plus la date et je dois la mettre à la main systématiquement.

La cellule à copier est en A1 avec la formule =AUJOURDHUI()

la macro est :
sub date
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 ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$A$6"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(5) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Flags"
args4(0).Value = "SVDT"
args4(1).Name = "FormulaCommand"
args4(1).Value = 0
args4(2).Name = "SkipEmptyCells"
args4(2).Value = false
args4(3).Name = "Transpose"
args4(3).Value = false
args4(4).Name = "AsLink"
args4(4).Value = false
args4(5).Name = "MoveMode"
args4(5).Value = 6

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$C$5"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())

end sub

pourquoi cela fonctionne au début puis plus du tout, je cale.

Ekel

Re : LIBRE OFFICE - CALC - macro pour copier/coller

Bonsoir,

Je n'ai rien compris à la raison de cette macron ni à son mode de lancement ; mais aujourd'hui ne changera pas avant demain !

Cordialement.

---

Ekel
---
Jammy Jellyfish - KUbuntu Utilisateur n°16275
AMD Ryzen 5 5600G  | B550 GAMING X V2 | 16 Go | 22" + 22"