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+unsubscr...@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