IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

OpenOffice & LibreOffice Discussion :

Macros désactivées pour lire fichier xls [LibreOffice][Tableur]


Sujet :

OpenOffice & LibreOffice

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Retraité
    Inscrit en
    Mai 2013
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mai 2013
    Messages : 13
    Points : 1
    Points
    1
    Par défaut Macros désactivées pour lire fichier xls
    Bonjour
    Je souhaite trouver de l'aide auprès de l'un ou de l'une d'entre vous.
    J'ai un petit fichier "xls" qu'un copain de travail avait réalisé. Il nous servait au bureau à jouer au "loto en groupe"
    Aujourd'hui je veux utiliser ce fichier sous Excel 2007 chez mon voisin, mais il y a le message suivant :

    En raison de vos paramètres de sécurités, les macros ont été désactivées. Pour exécuter les macros, vous devez rouvrir ce classeur, puis activer les macros.

    Nous avons beau essayer d'activer, cela ne fonctionne pas. Cette macro consiste à sortir "aléatoirement" 5 chiffres, et de changer ces chiffres s'ils ne nous plaisent pas en appuyant sur les touches "Ctrl+Maj+L"

    Je voulais faire exécuter ce petit programme avec Libre Office, mais je crois que les macros de Office ne sont pas reconnues. Est-ce que quelqu'un pourrait me rendre service en modifiant ces macros de façon à ce que Libre Office (ou Open Office) fasse fonctionner ce petit logiciel, car malheureusement je ne connais rien dans les "macros".

    Merci de votre aide
    Fichiers attachés Fichiers attachés

  2. #2
    Rédacteur

    Avatar de zoom61
    Homme Profil pro
    ...
    Inscrit en
    Janvier 2005
    Messages
    9 429
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : ...
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2005
    Messages : 9 429
    Points : 58 609
    Points
    58 609
    Billets dans le blog
    11
    Par défaut
    Bonjour,

    Nous sommes sur un forum d’entraide, et les règles du forum se trouvent ici, et tout particulièrement celle-ci.

    Donc, si vous souhaitez une participation du forum, il faut présenter ce que vous avez fait, sur quoi vous butez, etc. Nous ne faisons pas le travail à votre place.

    N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.

    Je ne réponds pas aux messages privés s'ils sont liés à une question technique

  3. #3
    Nouveau Candidat au Club
    Homme Profil pro
    Retraité
    Inscrit en
    Mai 2013
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mai 2013
    Messages : 13
    Points : 1
    Points
    1
    Par défaut
    Citation Envoyé par zoom61 Voir le message
    Bonjour,

    Nous sommes sur un forum d’entraide, et les règles du forum se trouvent ici, et tout particulièrement celle-ci.
    Bonjour
    En effet j'ai dû me tromper de forum "d'entre aide". Je ne suis en rien "un professionnel" un débutant certes, mais qui à 74 ans ne va se mettre à "comprendre" une macro de Office, pour la convertir dans Libre Office ou Open office, et malheureusement pas non plus à lire et à comprendre les tutoriaux "très bien faits" mais qui sont dans un langage que je ne comprends pas bien et qui m'obligerait à étudier pour un petit fichier que j'utilise qu'une à deux fois par semaine

    Citation Envoyé par zoom61 Voir le message

    Donc, si vous souhaitez une participation du forum, il faut présenter ce que vous avez fait, sur quoi vous butez, etc. Nous ne faisons pas le travail à votre place.
    Ben je croyais avoir été clair, en joignant en plus mon fichier "xls" que vous auriez pu ouvrir et modifier, c'est ce que moi j'appelle de l'entraide

    Merci de m'avoir répondu, je vais donc aller chercher ailleurs en espérant y trouver un meilleur accueil

  4. #4
    Expert éminent
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    3 937
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 3 937
    Points : 9 249
    Points
    9 249
    Par défaut
    hello,
    Rolandin (si tu repasses par ici) pour te montrer que l'on n'est pas si méchant, en pièce jointe , ton programme en version libreoffice.

    En fait il n'y avait pas vraiment de code visual basic derrière ton fichier excel mais plutôt un calcul avec des formules.

    La version LibreOffice en pièce jointe est avec du code basic libreOffice que voici pour les puristes ( et pour corriger ou optimiser si nécessaire ) :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    Sub Tirage
    Rem Déclaration des variables
    Dim Lig as Integer, Col as Integer
    Dim NumBoule as Integer
    Dim oDocument As Object, oSheet As Object, oCell As Object
    Randomize()
    oDocument = ThisComponent
    oSheet = oDocument.Sheets.getByName("Loto")
    Rem La Premiere ligne
    Lig = 2
    Rem Tirage en boucle de 5 nombres au hasard
    For Col = 0 to 4
    NumBoule = Int(49*Rnd)+1
    oCell = oSheet.getCellByPosition(Col,Lig)
    oCell.setValue(NumBoule)
    Next Col
    End Sub
    A la place du raccourci pour lancer le tirage, il y a un bouton.
    Question pour zoom61 : le randomize nécessaire ou pas nécessaire pour avoir vraiment un tirage aléatoire ?

    Ami calmant, J.P
    Fichiers attachés Fichiers attachés
    Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

  5. #5
    Membre averti Avatar de Amélie Ladoque
    Inscrit en
    Novembre 2004
    Messages
    249
    Détails du profil
    Informations forums :
    Inscription : Novembre 2004
    Messages : 249
    Points : 308
    Points
    308
    Par défaut
    Bonsoir,

    Citation Envoyé par jurassic pork Voir le message
    en pièce jointe , ton programme en version libreoffice.
    Sauf que ce programme ne marchera pas :
    Citation Envoyé par Rolandin Voir le message
    Aujourd'hui je veux utiliser ce fichier sous Excel 2007 chez mon voisin
    Excel ne sait pas lire les macros d'un autre Basic que le sien.

  6. #6
    Expert éminent
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    3 937
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 3 937
    Points : 9 249
    Points
    9 249
    Par défaut
    hello Amélie,

    sauf que Rolandin a écrit :
    Je voulais faire exécuter ce petit programme avec Libre Office, mais je crois que les macros de Office ne sont pas reconnues. Est-ce que quelqu'un pourrait me rendre service en modifiant ces macros de façon à ce que Libre Office (ou Open Office) fasse fonctionner ce petit logiciel


    Ami calmant, J.P
    Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

  7. #7
    Nouveau Candidat au Club
    Homme Profil pro
    Retraité
    Inscrit en
    Mai 2013
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mai 2013
    Messages : 13
    Points : 1
    Points
    1
    Par défaut
    Citation Envoyé par jurassic pork Voir le message
    hello,
    Rolandin (si tu repasses par ici) pour te montrer que l'on n'est pas si méchant, en pièce jointe , ton programme en version libreoffice.

    En fait il n'y avait pas vraiment de code visual basic derrière ton fichier excel mais plutôt un calcul avec des formules.
    Premièrement un grand merci pour ce dépannage, je constate en effet qu'il y "encore" des sauveteurs , merci pour ton travail, j'essayerais de comprendre les codes basic que tu as mis

    Citation Envoyé par jurassic pork Voir le message
    A la place du raccourci pour lancer le tirage, il y a un bouton.
    Ami calmant, J.P
    En effet beaucoup plus pratique que d'appuyer sur 3 touches pour faire les tirages.

    Encore un grand merci et bonne soirée

  8. #8
    Rédacteur

    Avatar de zoom61
    Homme Profil pro
    ...
    Inscrit en
    Janvier 2005
    Messages
    9 429
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : ...
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2005
    Messages : 9 429
    Points : 58 609
    Points
    58 609
    Billets dans le blog
    11
    Par défaut
    Citation Envoyé par jurassic pork Voir le message
    Question pour zoom61 : le randomize nécessaire ou pas nécessaire pour avoir vraiment un tirage aléatoire ?
    Il est plus correct de laisser cette instruction, car elle permet d'initialiser le générateur pseudo-aléatoire.

    Citation Envoyé par Amélie Ladoque Voir le message
    Sauf que ce programme ne marchera pas :

    Excel ne sait pas lire les macros d'un autre Basic que le sien.
    Tu as raison, mais si le fichier est enregistré en ods, cela fonctionnera correctement. Et de toute façon, il y a des chances pour que le code ne soit pas enregistré en xls.
    N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.

    Je ne réponds pas aux messages privés s'ils sont liés à une question technique

  9. #9
    Membre éclairé
    Profil pro
    Inscrit en
    Mai 2010
    Messages
    468
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2010
    Messages : 468
    Points : 769
    Points
    769
    Par défaut
    Bonsoir,

    La macro n'exclut pas les doublons.
    On peut alors relancer le tirage, sinon un exemple de code avec tirage sans doublons :
    https://forum.openoffice.org/fr/foru...t=6346&start=0

    A+
    J'utilise LibreOffice 4 donc quand je suis sur la partie du forum Excel, il se peut que mes réponses ne soit pas adéquates. Veuillez m'en excuser.

  10. #10
    Expert éminent
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    3 937
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 3 937
    Points : 9 249
    Points
    9 249
    Par défaut
    OK merci Gérard, je vais regarder ça.
    Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

  11. #11
    Expert éminent
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    3 937
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 3 937
    Points : 9 249
    Points
    9 249
    Par défaut
    Bon, ben voilà ce que cela donne :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    Sub Tirage
    Rem Déclaration des variables
    Dim Lig as Integer, Col as Integer
    Dim NumBoule as Integer
    Dim TableauBoules (4) as Integer
    Dim oDocument As Object, oSheet As Object, oCell As Object
    TableauBoules = Array(0,0,0,0,0)
    Randomize()
    oDocument = ThisComponent
    oSheet = oDocument.Sheets.getByName("Loto")
    Rem La Premiere ligne
    Lig = 2
    Rem Tirage en boucle de 5 nombres au hasard
    For Col = 0 to 4
        oCell = oSheet.getCellByPosition(Col,Lig)
        Do
            sortie = False
            NumBoule = int(rnd()*49) + 1
    Rem On regarde si la boule est déja sortie
            For j = 0 To Col
                If NumBoule = TableauBoules(j) Then
                   sortie = True
                End If
            Next j
         Loop Until (sortie = False)           
         oCell.setValue(NumBoule)
         TableauBoules(Col) = NumBoule
    Next Col
     
    Rem on tire le numéro Chance de 1 à 10
              oCell = oSheet.getCellByPosition(6,Lig)
              oCell.setValue( Int(9*Rnd)+1)
    End Sub
    j'ai rajouté le tirage du numéro Chance et j'utilise un tableau par rapport au code que tu m'as indiqué Gérard. Le tableau c'est pour éviter d'aller relire les valeurs des boules sorties dans la feuille.

    Ami calmant, J.P
    Fichiers attachés Fichiers attachés
    Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

  12. #12
    Nouveau Candidat au Club
    Homme Profil pro
    Retraité
    Inscrit en
    Mai 2013
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mai 2013
    Messages : 13
    Points : 1
    Points
    1
    Par défaut
    Citation Envoyé par jurassic pork Voir le message
    Bon, ben voilà ce que cela donne :

    j'ai rajouté le tirage du numéro Chance et j'utilise un tableau par rapport au code que tu m'as indiqué Gérard. Le tableau c'est pour éviter d'aller relire les valeurs des boules sorties dans la feuille.

    Ami calmant, J.P
    Bonjour à vous tous, et à vous toutes

    Que du bonheur, merci encore pour tout ce travaille, j'aurais aimé savoir en faire autant, hélas le temps passe trop vite, et je n'ai plus ce courage de m'y pencher

    Bonne journée à vous tous et vous toutes

  13. #13
    Membre éclairé
    Profil pro
    Inscrit en
    Mai 2010
    Messages
    468
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2010
    Messages : 468
    Points : 769
    Points
    769
    Par défaut
    Ne reste plus qu'a écrire la macro qui trouvera les numéros gagnants.
    J'utilise LibreOffice 4 donc quand je suis sur la partie du forum Excel, il se peut que mes réponses ne soit pas adéquates. Veuillez m'en excuser.

  14. #14
    Expert éminent
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    3 937
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 3 937
    Points : 9 249
    Points
    9 249
    Par défaut Macros Tirage du Loto et Euromillions
    hello,
    il y a une erreur dans ma macro de tirage du Loto :
    Le numéro chance va de 1 à 9 alors qu'il devrait aller de 1 à 10

    J'ai profité de cette correction pour rajouter une feuille pour le tirage Euromillions. J'ai créé une nouvelle macro TirageEuromillions qui est pour ainsi dire la même que celle du loto sauf que les numéros de boules vont de 1 à 50 et il y a deux numéros chances (Etoiles) de 1 à 11.
    En pièce jointe le résultat de mes investigations.

    Ami calmant, J.P
    Fichiers attachés Fichiers attachés
    Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

  15. #15
    Nouveau Candidat au Club
    Homme Profil pro
    Retraité
    Inscrit en
    Mai 2013
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mai 2013
    Messages : 13
    Points : 1
    Points
    1
    Par défaut
    Citation Envoyé par jurassic pork Voir le message
    hello,
    il y a une erreur dans ma macro de tirage du Loto :
    Le numéro chance va de 1 à 9 alors qu'il devrait aller de 1 à 10

    J'ai profité de cette correction pour rajouter une feuille pour le tirage Euromillions. J'ai créé une nouvelle macro TirageEuromillions qui est pour ainsi dire la même que celle du loto sauf que les numéros de boules vont de 1 à 50 et il y a deux numéros chances (Etoiles) de 1 à 11.
    En pièce jointe le résultat de mes investigations.

    Ami calmant, J.P
    Bonjour,

    Un grand merci pour tout ton travail, et pour cette nouvelle feuille pour l'Euromillions, le n° "Chance" du loto fait bien apparaître maintenant le 10, il en ait de même pour le 11 de l'Euromillions, que du bonheur.

    Reste plus qu'à sortir les bons n°

    Encore merci et bonne journée

  16. #16
    Nouveau Candidat au Club
    Homme Profil pro
    Retraité
    Inscrit en
    Mai 2013
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mai 2013
    Messages : 13
    Points : 1
    Points
    1
    Par défaut
    Citation Envoyé par jurassic pork Voir le message
    hello,
    J'ai profité de cette correction pour rajouter une feuille pour le tirage Euromillions. J'ai créé une nouvelle macro TirageEuromillions qui est pour ainsi dire la même que celle du loto sauf que les numéros de boules vont de 1 à 50 et il y a deux numéros chances (Etoiles) de 1 à 11.
    En pièce jointe le résultat de mes investigations.
    Ami calmant, J.P
    Hello "jurassic pork" si tu passe par là.

    De très graves problèmes familiaux (petite fille de 15 ans) m'ont empêchés de revenir plutôt.

    Je constate dans cette grille "Tirage Euromillios" que les n° chances ont souvent des doublons, est-ce qu'il te serait possible s.t.p de remédier à ce problème.

    En t'en remerciant par avance

  17. #17
    Expert éminent
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    3 937
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 3 937
    Points : 9 249
    Points
    9 249
    Par défaut Loto version 1.1
    hello,
    j'ai appliqué le même traitement "anti-doublon" pour les numéros chance que pour les autres numéros et normalement il n'y aura plus de doublons dans les numéros chance. Je numérote maintenant les versions du fichier pour s'y retrouver. En pièce jointe la version 1.1 à tester.

    Ami calmant, J.P
    Fichiers attachés Fichiers attachés
    Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

  18. #18
    Nouveau Candidat au Club
    Homme Profil pro
    Retraité
    Inscrit en
    Mai 2013
    Messages
    13
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mai 2013
    Messages : 13
    Points : 1
    Points
    1
    Par défaut
    Citation Envoyé par jurassic pork Voir le message
    hello,
    j'ai appliqué le même traitement "anti-doublon" pour les numéros chance que pour les autres numéros et normalement il n'y aura plus de doublons dans les numéros chance. Je numérote maintenant les versions du fichier pour s'y retrouver. En pièce jointe la version 1.1 à tester.

    Ami calmant, J.P
    Pas de réponse dans ma boite

    Merci beaucoup pour ton travail, tout fonctionne. J'ai voulu voir ta modification, mais une fenêtre me dit "Erreur inattendue...."

    Bonne journée

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 18
    Dernier message: 19/03/2014, 19h04
  2. Libname ODBC pour lire fichier xls
    Par TobTob dans le forum SAS Base
    Réponses: 6
    Dernier message: 30/05/2013, 16h57
  3. [VBA-E]une macro unique pour plusieurs fichiers excel
    Par fanchic29 dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 21/04/2006, 17h20
  4. problème pour lire fichiers .php3
    Par jejerome dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 3
    Dernier message: 28/02/2006, 21h16

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo