Discussion :

[Yadutaf]

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.

[Patrice740]

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 !!!

[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.

[Patrice740]

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

Peut-être le code de la macro !

[Yadutaf]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mobydick_62]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Roman27]

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 .