Macro Copier/Coller qui ne fonctionne pas à partir d'un bouton de formulaire

Version imprimable

17/12/2018, 18h05
Yadutaf

Macro Copier/Coller qui ne fonctionne pas à partir d'un bouton de formulaire

Bonsoir à tous,

J'ai créé une macro toute bête qui copie une plage de cellules pour en faire un collage spécial de dans un autre onglet. Cette macro fonctionne parfaitement bien lorsqu'on l'exécute à partir du gestionnaire de macros ou d'une commande assignée dans la barre de tâches. Malheureusement, lorsque j'assigne cette macro à un bouton de formulaire, elle ne fonctionne plus (sauf si je l'ai déjà lancé une première fois par le gestionnaire de tâches).
Merci de votre attention.
17/12/2018, 19h10
Patrice740

Citation:

Envoyé par Yadutaf

J'ai créé une macro toute bête [...] lorsque j'assigne cette macro à un bouton de formulaire, elle ne fonctionne plus (sauf si je l'ai déjà lancé une première fois par le gestionnaire de tâches).

« elle ne fonctionne plus » ou « elle ne fonctionne pas » ???
Dans les 2 cas, c'est plutôt vague comme explication !!!
17/12/2018, 19h22
Yadutaf

Je sais que ça semble un peu vague mais je ne sais quoi dire d'autre. Pour être plus concis :

La macro ne fonctionne pas lorsque j'essaie de l'exécuter depuis un bouton de formulaire mais elle fonctionne très bien à partir du gestionnaire de macro ou d'une commande de barre de tâche.
17/12/2018, 20h27
Patrice740

Citation:

Envoyé par Yadutaf

Je sais que ça semble un peu vague mais je ne sais quoi dire d'autre...

Peut-être le code de la macro !

Citation:

Envoyé par Patrice740

Peut-être le code de la macro !

Oui, vous avez raison. C'est une macro que je me suis contenté d'enregistrer avec l'enregistreur de macro :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
sub Copier
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 = "$Tournoi.$A$3:$D$52"
 
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 = "Nr"
args3(0).Value = 2
 
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args3())
 
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$A$2"
 
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())
 
rem ----------------------------------------------------------------------
dim args5(5) as new com.sun.star.beans.PropertyValue
args5(0).Name = "Flags"
args5(0).Value = "SV"
args5(1).Name = "FormulaCommand"
args5(1).Value = 0
args5(2).Name = "SkipEmptyCells"
args5(2).Value = false
args5(3).Name = "Transpose"
args5(3).Value = false
args5(4).Name = "AsLink"
args5(4).Value = false
args5(5).Name = "MoveMode"
args5(5).Value = 4
 
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args5())
 
 
end sub

Macro Copier/Coller qui ne fonctionne pas à partir d'un bouton de formulaire

Bonjour. J'arrive un peu tard sur le sujet. As tu solutionné ton problème ?
Quand on effectue une action sur un contrôle de formulaire (dans ton cas le bouton), le focus passe sur le formulaire.
Avant exécution il faut remettre le focus sur ton document Calc :
Donc le copier coller du dispatcher nécessite de redéfinir le focus sur le Frame.ContainerWindow courant.
Il faut au début du code de ta macro insérer le code suivant : ThisComponent.CurrentController.Frame.ContainerWindow.setFocus
Code:

1 2 3 4 5 6 7 8 9 sub Copier rem ---------------------------------------------------------------------- rem define variables ThisComponent.CurrentController.Frame.ContainerWindow.setFocus dim document as object dim dispatcher as object rem SUITE DE TON CODE
Cordialement

12/01/2020, 20h08
Roman27

Redirection du focus

Bonjour,
La ligne de commande que vous avez proposé pour le redirection du focus sur le document CALC a bien fonctionné
Le ou la destinataire de votre message ne vous avait pas répondu , mais votre suggestion a résolu mon problème .
Merci pour votre aide .