Horloge en VBA, erreur lors de l'appel d'une fonction

Bonjour,

je souhaiterais créer une horloge à intégrer dans un Powerpoint en VBA mais le code VBA bloque à un endroit. L'objectif derrière ce projet est d'afficher l'heure en temps réel à des étudiant pendant un examen en leur affichant le code de l'épreuve à rejoindre conjointement.

Voici le code VBA débuté :

Dim objSlide As Slide
Dim objTextbox As Shape

Sub AfficherHeureEnTempsReel()
    ' Référence à la diapositive sur laquelle vous voulez afficher l'heure
    Set objSlide = ActivePresentation.Slides(1) ' Remplacez le numéro de diapositive par le vôtre

    ' Créer un objet Textbox pour afficher l'heure
    Set objTextbox = objSlide.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
        Left:=100, Top:=100, Width:=200, Height:=50)

    ' Nommez la forme pour pouvoir la supprimer plus tard
    objTextbox.Name = "HeureEnTempsReel"

    ' Modifier les propriétés de la forme de l'heure
    With objTextbox.TextFrame.TextRange
        .Font.Size = 20 ' Taille de la police
        .Font.Name = "Arial" ' Police de caractères
        .Font.Bold = msoTrue ' Gras
        .ParagraphFormat.Alignment = ppAlignCenter ' Alignement au centre
    End With

    ' Appel initial de la macro de mise à jour
    MiseAJourHeure2
End Sub

Sub MiseAJourHeure2()
    Dim strTime As String
    strTime = Format(Now, "hh:mm:ss AM/PM") ' Format de l'heure souhaité
    objTextbox.TextFrame.TextRange.Text = strTime
    DoEvents
    Application.OnTime Now + TimeValue("00:00:01"), "MiseAJourHeure2"
End Sub

J'ai une erreur au niveau de Application.OnTime (avant dernière ligne), mais n'ayant que très peu de connaissances à ce sujet je reste bloqué.

Je sais que ce forum est plus spécialisé sur Excel mais je ne sais vraiment pas où demander de l'aide pour VBA, ce pourquoi je poste ce sujet ici. Je comprendrais parfaitement qu'il soit retiré par la modération.

En vous remerciant par avance de l'aide que vous pourriez m'apporter,

Justin

Bonjour,

ontime est une méthode excel et n'est pas connue de powerpoint. il faudrait donc piloter la mise à jour de l'heure dans ton powerpoint à partir d'une application excel.

Bonjour à tous,

si tu en as l'autorisation tu t'embetterais moins en installant un petit utilitaire horloge que tu peux mettre en avant-plan.
Par exemple https://sourceforge.net/projects/digitalclock4/ ou https://github.com/danielchalmers/DesktopClock
eric

Bonjour h2so4,

Merci bcp pour votre réponse, comment je pourrais alors intégrer un excel dans mon ppt ?

Bon Eric,

merci bcp également pour votre réponse. Je vais utiliser en attendant DesktopClock mais l'idéal serait d'avoir un ppt trame que je pourrai transmettre à d'autres personnes.