Macros désactivées pour lire fichier xls

Version imprimable

13/01/2015, 18h37
Rolandin

1 pièce(s) jointe(s)

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" :D
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
14/01/2015, 08h55
zoom61

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.

;)
14/01/2015, 11h43
Rolandin

Citation:

Envoyé par zoom61

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

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 :oops:

1 pièce(s) jointe(s)

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:

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

14/01/2015, 18h25
Amélie Ladoque

Bonsoir,

Citation:

Envoyé par jurassic pork

en pièce jointe , ton programme en version libreoffice.

Sauf que ce programme ne marchera pas :

Citation:

Envoyé par Rolandin

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.
14/01/2015, 18h51
jurassic pork

hello Amélie,

sauf que Rolandin a écrit :

Citation:

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

:P

Ami calmant, J.P
14/01/2015, 19h28
Rolandin

Citation:

Envoyé par jurassic pork

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 :ptdr:, merci pour ton travail, j'essayerais de comprendre les codes basic que tu as mis

Citation:

Envoyé par jurassic pork

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 ;)
14/01/2015, 19h38
zoom61

Citation:

Envoyé par jurassic pork

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

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.
14/01/2015, 20h56
GerardCalc

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+
14/01/2015, 23h05
jurassic pork

OK merci Gérard, je vais regarder ça.

1 pièce(s) jointe(s)

Bon, ben voilà ce que cela donne :

Code:

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

15/01/2015, 11h55
Rolandin

Citation:

Envoyé par jurassic pork

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 ;)
15/01/2015, 14h29
GerardCalc

Ne reste plus qu'a écrire la macro qui trouvera les numéros gagnants. :P
17/01/2015, 02h59
jurassic pork

1 pièce(s) jointe(s)

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
17/01/2015, 09h43
Rolandin

Citation:

Envoyé par jurassic pork

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° :roll:

Encore merci et bonne journée ;)
19/02/2015, 12h14
Rolandin

Citation:

Envoyé par jurassic pork

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 ;)
19/02/2015, 13h08
jurassic pork

1 pièce(s) jointe(s)

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
19/02/2015, 13h46
Rolandin

Citation:

Envoyé par jurassic pork

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 :roll:

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

Bonne journée ;)