Bouton avec mdp et ouverture de fichier en mode présentation [Résolu/Fermé]

Signaler
Messages postés
606
Date d'inscription
vendredi 29 avril 2005
Statut
Membre
Dernière intervention
2 août 2020
-
Messages postés
606
Date d'inscription
vendredi 29 avril 2005
Statut
Membre
Dernière intervention
2 août 2020
-
Bonjour la communauté,
Je tente de créer un fichier atelier multimédia pour Noël et pour les enfants de 8 à 10 ans sous Impress.
C'est en fait presque un jeu. Chaque diapositive est une étape. On clique sur le lien du jeu dans la diapo, on fait son jeu, puis on ferme la fenêtre du jeu, ce qui nous ramène à la présentation.

Je voudrais qu'à la fin de l'atelier (donc de la présentation), il y ait un bouton "Vérifier le mot de passe". Celui aura été donné morceau par morceau durant toutes les étapes du jeu.

Les enfants cliquent sur "Vérifier le mot de passe", et là, j'ai deux possibilité :
1) Le bouton ouvre un fichier protégé par mot de passe. Auquel cas un mot de passe est demandé.
2) Le bouton demande un mot de passe, et, si celui-ci est correct, ouvre un fichier, s'il n'est pas correct, en ouvre éventuellement un autre.

Je suis parti sur la première option, mais lorsque je clique sur "Vérifier le mdp", et que j'entre le bon mdp, la présentation s'ouvre en mode édition. Je suis parvenu à le faire ouvrir en mode présentation, mais en convertissant le fichier en pps, et j'ai perdu la protection du mot de passe, donc aucun mot de passe ne m'est demandé...

Peut-être que quelqu'un a une idée, plus simple, pour mettre en oeuvre cet atelier pour les enfants ? :)


https://www.cjoint.com/c/EKkiXAWHibF - L'atelier
https://www.cjoint.com/c/EKkjkJLqwlF - Le fichier de fin de jeu .odp (que je ne parviens pas à faire ouvrir en mode présentation
https://www.cjoint.com/c/EKkjnXHDhtF - Le fichier convertis qui ne demande pas de mot de passe mais qui s'ouvre en mode présentation.

Merci d'avance pour votre aide ! :)



Bien à vous,
Naï
ps: je surveille tous mes sujets non résolus, si solution vous avez, je la lirais à coup sûr :)

1 réponse

Messages postés
2160
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
27 octobre 2020
866
Bonjour
Pour démarrer une présentation comme un PPS cela nécessite une extension
Voir là

ensuite pour la présentation avec un bouton
il faudrait une macro
fichier ouvert >ALT+F11
Copier coller

Sub ouvrirfinjeu 
   Dim Fichier As String 
   Dim Wb As Object 
   Dim Args() 
   DIm mdp as String
 
  mdp = INPUTBOX("Mot de passe")
  If mdp = "mdp" then goto OUVRE else goto FIN
  
 OUVRE:
 rem ouveture en pps ou odp
 Fichier = ConvertToUrl ("C:\Users\chemin\finjeu.pps") 
 Wb = StarDesktop.loadComponentFromURL(Fichier,"_blank",0 ,Args() )
 FIN:

End Sub



chemin est le chemin d'accès au fichier

ensuite dessiner un rectangle et écrire "mot de passe" et associer une macro avec une action sur ce rectangle
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
606
Date d'inscription
vendredi 29 avril 2005
Statut
Membre
Dernière intervention
2 août 2020
49
Merci pour ta réponse ! :)
J'avais déjà jeté un oeil du côté de ImpressRunner. Ça ne fonctionne pas avec les .odp :/
M'enfin, le pps ne me dérange pas ^^
En ce qui concerne la marco, super :D
Puis-je indiqué un chemin relatif dans cette dernière ? Si oui, comment ?
En effet, la présentation sera "installée" sur plusieurs postes, avec l'ensemble des fichiers dans le même dossier.
Aussi, peut on, dans la même macro, faire ouvrir un autre fichier en cas de mot de passe incorrect ?

Merci encore ^^
Messages postés
2160
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
27 octobre 2020
866
Si impressruner ne fonctionne pas alors avec la macro le fichier pps s'affiche en mode construction.
A priori un chemin relatif ne fonctionne pas
Messages postés
606
Date d'inscription
vendredi 29 avril 2005
Statut
Membre
Dernière intervention
2 août 2020
49
Bah justement, ImpressRunner fonctionne avec les pps mais pas avec les odp.
C'est pour cette raison que j'utilise le pps pour le fichier de résultat.
Est-ce que quelque chose comme :
 Fichier = ConvertToUrl ("C:\Current_User\Desktop\Atelier-noel\finjeu.pps") 

peut fonctionner ? Quelque chose qui, à défaut d'un chemin relatif, s'adapte un peu à l'environnement.

Bien à toi ^^
Messages postés
2160
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
27 octobre 2020
866
Oui
cela pourrait marcher tester ce code suivant

Sub ouvrirfinjeu
Dim Fichier_mdp_ok As String
Dim Fichier_mdp_nok As String

Dim lance_mdp_ok As Object
Dim lance_mdp_nok As Object
Dim Args()
DIm mdp as String

mdp = INPUTBOX("Mot de passe")
If mdp = "mdp" then goto MDP_OK else goto ERREUR_MDP

MDP_OK:
rem ouveture fichier mdp correct
Fichier_mdp_ok = ConvertToUrl ("C:\Current_User\Desktop\Atelier-noel\finjeu.pps")
lance_mdp_ok = StarDesktop.loadComponentFromURL(Fichier_mdp_ok,"_blank",0 ,Args() )
exit sub

ERREUR_MDP:
rem ouveture fichier mdp incorrect
Fichier_mdp_nok = ConvertToUrl ("C:\Current_User\Desktop\Atelier-noel\erreurmdp.pps")
lance_mdp_nok = StarDesktop.loadComponentFromURL(Fichier_mdp_nok,"_blank",0 ,Args() )
End Sub
Messages postés
606
Date d'inscription
vendredi 29 avril 2005
Statut
Membre
Dernière intervention
2 août 2020
49
Ça fonctionne ^^
Merci ! :)
ps: il ne faut pas cliquer sur "Annuler". J'ai une erreur de violation. Fatal error.
Mais il n'y a aucune raison que les enfants cliquent sur Annuler :D