Date: prev next · Thread: first prev next last
2018 Archives by date, by thread · List index


Bonsoir,

J'essaierais en 2 temps :
Redémarrage de la bécane, test. Si toujours pareil :
Suppression du profil
En "bidouillant" avec basic, comme par exemple une tentative de modification alors que le programme est bloqué sur un point d'arrêt, ça m'est arrivé de provoquer des effets indésirables.
Bon courage et...
bon surf,
Christian


Le 30/10/2018 à 23:17, Philippe BLANCHARD a écrit :
Je suis certain de ne pas avoir modifier ce paramètre !
Malgré tout, je viens de mettre le niveau le plus faible (pas recommandé)
mais j'ai toujours le même message !

Le mar. 30 oct. 2018 à 23:07, Thierry Jeanneret <thierry.jeanneret@gmail.com>
a écrit :

Je suis sur mon iPad, je n'ai donc pas le menu sous les yeux. C'est dans
Préférences, sous sécurité je crois, ensuite vous avez trois options pour
les macros : Tout bloquer, c'est votre cas, prévenir avant exécution, qui
est agréable, ou accepter les macros provenant d'endroits connus, qui peut
être une bonne solution aussi.



Le mar. 30 oct. 2018 à 23:04, Philippe BLANCHARD <
phillibreoffice@gmail.com> a écrit :

Bonsoir,
Est il possible de remettre les paramètres par défaut ?
Si oui, connaissez vous le chemin d'accès ?
Merci par avance

Le mar. 30 oct. 2018 à 23:01, Thierry Jeanneret <
thierry.jeanneret@gmail.com> a écrit :

Bonsoir,

Vous avez dû modifier les paramètres généraux de LibreOffice. C'est la
qu'on spécifie le niveau de protection des macros.

Thierry


Le mar. 30 oct. 2018 à 22:59, Philippe BLANCHARD <
phillibreoffice@gmail.com> a écrit :

Bonjour à tous,

Je débute avec les macros sous LibreOffice,

Voilà mon code :
REM  *****  BASIC  *****

Sub Trait
Rem Déclaraton Variables & Tableau
Dim oSheet As Object
Dim oCell As Object
Dim Equipe1 As String Rem Equipe qui reçoit
Dim Equipe2 As String Rem Equipe Visiteur
Dim ScoreEq1 As Integer Rem Score de l'Equipe1
Dim ScoreEq2 As Integer Rem Score de l'Equipe2
Dim MaChaine As String
Dim Tab_Journee(13,22) As Variant

oSheet = ThisComponent.Sheets.getByName("1")

For Rang = 1 to 7
Equipe1 = oSheet.getCellByPosition(1,3+Rang*2).String
MsgBox(Equipe1)
ScoreEq = oSheet.getCellByPosition(3,3+Rang*2).String
MsgBox(ScoreEq1)
Next Rang

End Sub

Tout fonctionnait et ce soir à l'éxécution, j"ai le message suivant :

Pour des raisons de sécurité, il est impossible d'exécuter cette macro.
Pour plus d'informations, vérifiez les paramètres de sécurité.

Qu'ai je fait ?
Pouvez vous m'aider ?

Merci par avance de votre aide.

Amicalement

Philippe

--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous
désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy





---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus

--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.