Bouton avec mdp et ouverture de fichier en mode présentation
Résolu/Fermé
Nai
Messages postés
707
Date d'inscription
vendredi 29 avril 2005
Statut
Membre
Dernière intervention
11 octobre 2024
-
Modifié par Nai le 10/11/2015 à 10:18
Nai Messages postés 707 Date d'inscription vendredi 29 avril 2005 Statut Membre Dernière intervention 11 octobre 2024 - 12 nov. 2015 à 21:15
Nai Messages postés 707 Date d'inscription vendredi 29 avril 2005 Statut Membre Dernière intervention 11 octobre 2024 - 12 nov. 2015 à 21:15
A voir également:
- Bouton avec mdp et ouverture de fichier en mode présentation
- Fichier rar - Guide
- Mode sécurisé samsung - Guide
- Comment réduire la taille d'un fichier - Guide
- Mode d'emploi - Guide
- Comment ouvrir un fichier epub ? - Guide
1 réponse
yclik
Messages postés
3712
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
18 décembre 2024
1 521
10 nov. 2015 à 20:30
10 nov. 2015 à 20:30
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
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
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
11 nov. 2015 à 01:05
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 ^^
11 nov. 2015 à 09:42
A priori un chemin relatif ne fonctionne pas
12 nov. 2015 à 19:23
C'est pour cette raison que j'utilise le pps pour le fichier de résultat.
Est-ce que quelque chose comme :
peut fonctionner ? Quelque chose qui, à défaut d'un chemin relatif, s'adapte un peu à l'environnement.
Bien à toi ^^
Modifié par yclik le 12/11/2015 à 20:54
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
12 nov. 2015 à 21:15
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