[fr-users]

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