A voir également:
- Macro compte à rebours powerpoint
- Supprimer compte instagram - Guide
- Compte facebook piraté - Guide
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Visionneuse powerpoint - Télécharger - Présentation
9 réponses
m@rina
Messages postés
20077
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
25 avril 2024
11 272
10 avril 2012 à 01:00
10 avril 2012 à 01:00
Bonsoir,
A ma connaissance, une macro Auto-Open dans PowerPoint ne fonctionne que dans un addin afin de lancer un événement initialisé dans un module de classe.
Il n'y a que 3 macros automatiques dans PowerPoint qui se déclenchent donc automatiquement et uniquement durant un diaporama (OnSlideShowPageChange, OnSlideShowTerminate, OnSlideShowTerminate).
Quant à faire un décompte dans PPT, je serais d'avis pour opter pour une solution Flash à insérer dans PowerPoint.
m@rina
A ma connaissance, une macro Auto-Open dans PowerPoint ne fonctionne que dans un addin afin de lancer un événement initialisé dans un module de classe.
Il n'y a que 3 macros automatiques dans PowerPoint qui se déclenchent donc automatiquement et uniquement durant un diaporama (OnSlideShowPageChange, OnSlideShowTerminate, OnSlideShowTerminate).
Quant à faire un décompte dans PPT, je serais d'avis pour opter pour une solution Flash à insérer dans PowerPoint.
m@rina
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
Modifié par f894009 le 5/04/2012 à 14:28
Modifié par f894009 le 5/04/2012 à 14:28
Bonjour,
Solution VBA
Ouvrir VBA powerpoint par Alt+F11
Fenetre de gauche: click droit souris
Insertion--------->Module
Click gauche fenetre de droite
Copier le code si dessous: (modifier le si cela ne convient pas pour le texte)
Sub Auto_Open()
Dim date_futur As Date, date_du_jour_x As Date, Nb_Jours As Date
date_futur = "20/04/2012 18:30"
date_du_jour_x = "02/04/2012 17:30"
Nb_Jours = date_futur - date_du_jour_x
Slide1.Label1.Caption = "Plus que " & Format(Nb_Jours, "dd") & " jours, " _
& Format(Nb_Jours, "hh") & " heures, " _
& Format(Nb_Jours, "mm") & " minutes"
End Sub
Click sur fenetre Microsoft Power-Point
Menu--------->Developpeur------------>Controles
Click sur le A majuscule (controle Label)
Aller sur la diapo--------->click gauche et dessiner le controle Label
par defaut le nom du premier control Label est LABEL1.
Vous pouvez modifier les proprietes (taille caractere, couleur....) par click gauche sur le Label
Enregistrez votre PPS en: Presentation prenant en charge les macros
Principe:
A chaque ouverture du Power-Point, vous verrez le decompte s'afficher sur la diapo
Bonne suite
Solution VBA
Ouvrir VBA powerpoint par Alt+F11
Fenetre de gauche: click droit souris
Insertion--------->Module
Click gauche fenetre de droite
Copier le code si dessous: (modifier le si cela ne convient pas pour le texte)
Sub Auto_Open()
Dim date_futur As Date, date_du_jour_x As Date, Nb_Jours As Date
date_futur = "20/04/2012 18:30"
date_du_jour_x = "02/04/2012 17:30"
Nb_Jours = date_futur - date_du_jour_x
Slide1.Label1.Caption = "Plus que " & Format(Nb_Jours, "dd") & " jours, " _
& Format(Nb_Jours, "hh") & " heures, " _
& Format(Nb_Jours, "mm") & " minutes"
End Sub
Click sur fenetre Microsoft Power-Point
Menu--------->Developpeur------------>Controles
Click sur le A majuscule (controle Label)
Aller sur la diapo--------->click gauche et dessiner le controle Label
par defaut le nom du premier control Label est LABEL1.
Vous pouvez modifier les proprietes (taille caractere, couleur....) par click gauche sur le Label
Enregistrez votre PPS en: Presentation prenant en charge les macros
Principe:
A chaque ouverture du Power-Point, vous verrez le decompte s'afficher sur la diapo
Bonne suite
bonjour merci d'avoir répondu
j'ai essayé de faire ce que vous m'avez dit mais au moment où il faut faire le contrôle label il ne prend pas en compte le module crée précédemment, donc j'essaye de copier le code dans le nouveau dossier crée mais ça ne fonctionne pas sauf si je remplace auto-open par label1-clic, il me fait le calcul quand je clic sur le diaporama
mais pour ce que j'ai réussi a avoir il fait juste le calcul il ne fais pas decompte quand il est ouvert
j'ai essayé de faire ce que vous m'avez dit mais au moment où il faut faire le contrôle label il ne prend pas en compte le module crée précédemment, donc j'essaye de copier le code dans le nouveau dossier crée mais ça ne fonctionne pas sauf si je remplace auto-open par label1-clic, il me fait le calcul quand je clic sur le diaporama
mais pour ce que j'ai réussi a avoir il fait juste le calcul il ne fais pas decompte quand il est ouvert
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
8 avril 2012 à 08:50
8 avril 2012 à 08:50
Bonjour,
qu'ils se mette a jour a chaque fois que je l'ouvre.
C'est ce que vous avez demander.
Vous n'avez pas demande a ce que le decompte se fasse tout le temps du diaporama ouvert!
J'ai corrige date_du_jour_x = "02/04/2012 17:30" qui pour moi etait fixe
alors que c'est la date courante
Sub Auto_Open()
Dim date_futur As Date, date_du_jour_x As Date, Nb_Jours As Date
date_futur = "20/04/2012 18:30"
date_du_jour_x = Now 'Date maintenant
Nb_Jours = date_futur - date_du_jour_x
Slide1.Label1.Caption = "Plus que " & Format(Nb_Jours, "dd") & " jours, " _
& Format(Nb_Jours, "hh") & " heures, " _
& Format(Nb_Jours, "mm") & " minutes"
End Sub
A+
qu'ils se mette a jour a chaque fois que je l'ouvre.
C'est ce que vous avez demander.
Vous n'avez pas demande a ce que le decompte se fasse tout le temps du diaporama ouvert!
J'ai corrige date_du_jour_x = "02/04/2012 17:30" qui pour moi etait fixe
alors que c'est la date courante
Sub Auto_Open()
Dim date_futur As Date, date_du_jour_x As Date, Nb_Jours As Date
date_futur = "20/04/2012 18:30"
date_du_jour_x = Now 'Date maintenant
Nb_Jours = date_futur - date_du_jour_x
Slide1.Label1.Caption = "Plus que " & Format(Nb_Jours, "dd") & " jours, " _
& Format(Nb_Jours, "hh") & " heures, " _
& Format(Nb_Jours, "mm") & " minutes"
End Sub
A+
bonjour
merci beaucoup pour le changement c'est que je voulais
et au risque d'être un peu énervant.
j'arrive pas a le rendre automatique il bloque quand je met le code
donc voila si vous avez une idée de pourquoi le mode auto ne veut pas marcher?
encore merci
merci beaucoup pour le changement c'est que je voulais
et au risque d'être un peu énervant.
j'arrive pas a le rendre automatique il bloque quand je met le code
Auto_Open()par contre si je met
Label1_Click()il me fait bien le décompte mais faut que je clique sans arrêt pour que le décompte se fasse
donc voila si vous avez une idée de pourquoi le mode auto ne veut pas marcher?
encore merci
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
8 avril 2012 à 17:22
8 avril 2012 à 17:22
Re,
Est-ce que vous avez mis le code dans un module??? voir ci-dessous
Ouvrir VBA powerpoint par Alt+F11
Fenetre de gauche: click droit souris
Insertion--------->Module
Click gauche fenetre de droite
Pour un decomptage auto, je regarde pour mardi fin matinee
Est-ce que vous avez mis le code dans un module??? voir ci-dessous
Ouvrir VBA powerpoint par Alt+F11
Fenetre de gauche: click droit souris
Insertion--------->Module
Click gauche fenetre de droite
Pour un decomptage auto, je regarde pour mardi fin matinee
oui je met bien le code dans un module voici une image ce que j'ai:
http://www.hostingpics.net/viewer.php?id=80784365ze.png
et ensuite en insérant le control label j'ai ceci :
http://www.hostingpics.net/viewer.php?id=689814Sanstitre.png
et encore merci pour le temps que vous prenez pour m'aider
http://www.hostingpics.net/viewer.php?id=80784365ze.png
et ensuite en insérant le control label j'ai ceci :
http://www.hostingpics.net/viewer.php?id=689814Sanstitre.png
et encore merci pour le temps que vous prenez pour m'aider
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
8 avril 2012 à 18:18
8 avril 2012 à 18:18
Re,
A mardi
A mardi
