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

[daniel.bournat]

[calc]

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

[tintin]

Bonjour,

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

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

[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

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

[tintin]

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 ?

[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

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

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

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

[Dude]

A priori, tu ne lis rien de ce qu'on t'écrit.

Bizarre, qu'il exécutait la macro sans le JRE.

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 :

Il aurait été sympa de mettre ton message en forme afin de gagner en lisibilité.