Discussion :

[bolide7]

Bonjour à tous,
Pour ma première macro, j'aurai souhaité connaître le temps total de présentation de mon diaporama, dont les diapos sont paramétrées pour défiler automatiquement.
A priori, c'est possible, mais uniquement avec une macro trouver sur ce site.
Merci DEVELOPPEZ.COM :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Defile()
    Dim i As Integer
    Dim x As Long        
    For i = 1 To Ppp1.Slides.Count
        x = x + Ppp1.Slides(i).SlideShowTransition.AdvanceTime
    Next i        
    MsgBox x
End Sub

Problème où dois je insérer ce texte, dont les caractéristiques sont totalement en dehors de mes compétences ?
Sur mon écran, j'ai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Macro1()
'
' Macro enregistrée le 02/08/2011 par bolide7
'
 
    Application.CommandBars("Stop Recording").Visible = False
End Sub

Dois je supprimer la totalité de ce texte et le remplacer par la macro ou dois je insérer la macro au milieu de ce texte ?
Si oui, où dois je mettre le texte de la macro ?

En fouillant sur Internet, j'ai également trouvé cette autre macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub DureeTotale()
'
' Macro créée 09/11/02 par Jean-Pierre FORESTIER
'
Duree = 0
For Each dia In ActivePresentation.Slides
Duree = Duree + dia.SlideShowTransition.AdvanceTime
Next
Duree = Round(Duree)
Minutes = Int(Duree / 60)
Secondes = Duree Mod 60
MsgBox "Durée totale:" & Minutes & " minutes et " & Secondes & "secondes"
 
End Sub

Par contre, si elle donne le même résultat, le texte me paraît bien différent.
Quelle est sa différence ?

D'avance, merci beaucoup pour toutes vos explications.
bolide7

[Invité]

Bonjour

Il n'y aucune différence, le principe est toujours d'incrémenter une variable avec la durée de chaque diapo. Ce qui change c'est la méthode de parcours.

Dans le premier cas on fait une boucle pour parcourir chaque diapo à partir de son index (i).
Dans le deuxième cas on parcourt la collection des diapositives présentent dans la présentation.

Ce texte est à insérer dans l'éditeur VB.

Fais Alt+F11
Insère un module
Colle le premier code
Mets le curseur à l'intérieur et appui sur la touche F5.

Philippe

[bolide7]

Bonjour Philippe,
Tout d'abord merci pour avoir déplacé mon message et l'avoir mis au bon endroit.
Mais je n'avais pas vu cette possibilité.
Pour ce qui est de la macro de DEVELOPPEZ.COM, lorsque je positionne mon curseur dans le texte et fais F5, j'ai un message d'erreur : Erreur d'exécution 424 Objet requis.
Ca aurait été trop beau que cela fonctionne du premier coup !
D'autre part, j'ai vu sur Internet, qu'ensuite on peut en faire un bouton à mettre dans la barre d'outils, qui permet en cliquant sur ce bouton de connaître la durée totale du diaporama.
Pourrais tu m'en dire plus sur la marche à suivre pour insérer ce bouton ?
D'avance merci pour tes compléments d'informations.
bolide7

[Invité]

Re

Reprenons les choses dans l'ordre :

Quel code as-tu utilisé ? Si c'est le premier, as-tu une variable qui se nomme Ppp1 ?
Mets le code utilisé, et le nom de ton diaporama sur le forum.

Pour l'histoire du bouton :

• Clique droit sur le menu et choisi "Personnaliser"
• Sélectionner l'onglet "Commande"
• En bas de la première liste sélectionner "Macro"
• Dans la liste de gauche apparaît la liste des macros (dans la mesure où les macros aient été déclarée en public).
• Tu sélectionnes la macro avec la souris et tout en gardant le bouton gauche appuyé tu la glisses dans le menu.

Philippe

[bolide7]

Bonjour Philippe,
La macro utilisée est la première, celle de DEVELOPPEZ.COM.
Je te confirme qu'il y a bien une variable nommer ppp1.
Le nom de mon diaporama est "Durée d'un diaporama".
Pour ce qui est du bouton, même si je n'en suis pas encore là, c'est quoi l'histoire de la déclaration en public ?
A +

[Invité]

Re

Comment est déclarée cette variable ? Quelle est le nom de ta présentation ?

Philippe

[bolide7]

Bonjour Philippe,
Je ne comprends pas ta question.
C’est quoi cette histoire de déclaration ?
Tu sembles oublier que c’est ma première macro et encore c’est bien exagéré comme titre puisqu’il ne s’agit que d’un copier coller et que je comprends absolument rien au charabia contenu dans ce copier coller.
En conséquence, pour avancer plus rapidement, merci d’avance de préciser tes questions.
Comme indiqué précédemment, le nom de mon diaporama est "Durée d'un diaporama".
A bientôt.
bolide7