Page 1 sur 1

[Résolu][Calc] Exécution macro malgré demande du JRE

Publié : 02 oct. 2019 12:44
par daniel.bournat
[calc]
La modération vous a écrit: Titre <.message demandant JRE mais l'exécution de la macro est réali > balisé [Calc] conformément aux règles de cette section (voir le bandeau rouge) et modifié pour le condenser

Bonjour à tous,
J'ai crée une petite macro.
Lors de son exécution un message me demande d'installer JRE.
Je clique sur OK et la macro s"exécute.
Dans les options [java] j'ai "décroité" Utiliser un environnement d'exécution Java.
Lors de l'exécution le message est différent mais en cliquant sur OK la macro s'exécute.
Apparemment je n'ai pas Java installé sur mon PC.
Dois-je l'installer ?
Sinon comment faire pour éviter les messages ?

Merci pour vos réponses,

Open Office 4.1.6
Windows 10 1903

Re: [Calc] Exécution macro malgré demande du JRE

Publié : 02 oct. 2019 17:02
par tintin
Bonjour,
[b][color=#404080]daniel.bournat[/color][/b] a écrit :Apparemment je n'ai pas Java installé sur mon PC..
Dois-je l'installer ?
Facile de vérifier :
Menu Outils > Options > OpenOffice > Java.
Capture d’écran 2019-10-02 à 17.03.27.png
Pour l'installation, voir [Java] Installation de JRE 8 pour Windows

Re: [Calc] Exécution macro malgré demande du JRE

Publié : 02 oct. 2019 20:05
par daniel.bournat
Dans mon cas Java n'est donc pas installé.
La macro fonctionne sans mais j'ai ce message d'erreur.
Est-ce que la seule façon de supprimer le message est d'installer Java ?

Re: [Calc] Exécution macro malgré demande du JRE

Publié : 02 oct. 2019 20:35
par tintin
Si vous installiez Java vous auriez un début de réponse.
Tutoriel ici : https://forum.openoffice.org/fr/forum/v ... 39&t=50996

Re: [Calc] Exécution macro malgré demande du JRE

Publié : 07 oct. 2019 21:30
par daniel.bournat
Bonsoir,
Je n'étais pas là ces derniers jours.
En fait, pourquoi installer Java puisqu'il n'y en pas besoin ?
La question serait plutôt comment supprimer le message demandant son installation. Qu'en pensez-vous ???

Re: [Calc] Exécution macro malgré demande du JRE

Publié : 07 oct. 2019 22:39
par tintin
daniel-bournat a écrit :Qu'en pensez-vous ???
Et vous que pensez-vous de quelqu'un qui pose une question et fait aussi la réponse ?
Joignez donc votre fichier et la macro, après on verra.
Comment joindre un fichier

Pour le reste, prenez connaissance de Quelle est l'utilité d'avoir Java ?

Re: [Calc] Exécution macro malgré demande du JRE

Publié : 08 oct. 2019 20:45
par daniel.bournat
Bonsoir,
La macro est toute simple.
Elle sélectionne les cellules A6 à J6.
Insère des cellules en déplaçant les cellules vers le bas.
elle sélectionne les cellules A7 jusqu'à J8.
recopie ces cellules sur A6 à j6.

Je joins un petit fichier

voici la macro :

Code : Tout sélectionner

REM  *****  BASIC  *****

Sub Main

End Sub


sub Enrg_Pds_Jour_L
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$5:$J$5"

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

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Flags"
args2(0).Value = "V"

dispatcher.executeDispatch(document, ".uno:InsertCell", "", 0, args2())

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

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

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "EndCell"
args4(0).Value = "$J$5"

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

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

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


end sub


sub Enrg_Pds_Jour_D
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$6:$J$6"

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

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Flags"
args2(0).Value = "V"

dispatcher.executeDispatch(document, ".uno:InsertCell", "", 0, args2())

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

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

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "EndCell"
args4(0).Value = "$J$6"

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

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

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


end sub

Re: [Calc] Exécution macro malgré demande du JRE

Publié : 11 oct. 2019 16:49
par Dude
Salut,

Il aurait été sympa de mettre ton message en forme afin de gagner en lisibilité.
Le code se met entre balises comme ceci :

Code : Tout sélectionner

Du code bien balisé
As-tu lu le lien donné par tintin ?
La conception de macros nécessite la présence du JRE.
De la même manière, certaines API comme l'accès aux bases de données en ont besoin.
Donc, l'avertissement est valable et incontournable.

Re: [Calc] Exécution macro malgré demande du JRE

Publié : 20 oct. 2019 11:11
par daniel.bournat
Bonjour à tous,
J'ai pris quelques jours de congés.
DE retour je prends connaissance de vos messages.
Je vais donc installer JRE.
Merci pour tout,

Re: [Calc] Exécution macro malgré demande du JRE

Publié : 20 oct. 2019 11:27
par daniel.bournat
Après installation du JRE plus de message.
Bizarre, qu'il exécutait la macro sans le JRE.
Merci pour votre aide qui permet une exécution sans message d'erreur.
:-;

Re: [Résolu][Calc] Exécution macro malgré demande du JRE

Publié : 20 oct. 2019 17:16
par Dude
A priori, tu ne lis rien de ce qu'on t'écrit.
daniel.bournat a écrit :Bizarre, qu'il exécutait la macro sans le JRE.
Dude a écrit :certaines API comme l'accès aux bases de données en ont besoin
Ta macro ne fait appel qu'au dispatcher qui n'a pas besoin du JRE.
Mais le dispatcher n'est pas l'API.

Et bis repetitae :
Dude a écrit :Il aurait été sympa de mettre ton message en forme afin de gagner en lisibilité.