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.