Texte variable en fonction de la date

Merci, mais quand je copie rien ne s'affiche.
Quand tu dis une zone de texte, c'est bien une TextBox ?
Est ce que tu peux m'envoyer une fichier powerpoint avec la macro dedans ?

Merci d'avance, et bonne fêtes de fin d'année :)

Bonjour,

Non, une zone de texte normale (depuis la galerie des formes), et il faut la nommer avec le nom utilisé dans la macro, à savoir "zone" dans mon exemple (ou le nom que tu souhaites).

Super ça marche maintenant, merci vraiment.
Est il possible en plus de faire apparaitre a diapo uniquement en fonction des dates que j'ai rentrées dans la macro ci dessous (j'ai environ une quarantaine de date) ?
Et aussi est il possible aussi de programmer l'affichage d'une diapo uniquement le lundi et une autre uniquement le vendredi ?
Merci

Bonjour,

Oui tout ça est possible.
Pour commencer, le mieux est de nommer les deux diapos spécifiques aux lundi et vendredi de façon à pouvoir les déplacer sans souci. Pour cela une première macro que tu lances une fois et que tu peux détruire ensuite. Bien sûr, tu mets les bons numéros de diapos à la place du 3 et du 4:

Sub truc()
ActivePresentation.Slides(3).Name = "lundi"
ActivePresentation.Slides(4).Name = "vendredi"
End Sub

Pour la macro événementielle, il faudra maintenant qu'elle se lance dès la première diapo. Donc, dès le début on affiche la diapo lundi si on est un lundi et la diapo vendredi si on est un vendredi. SInon, elles sont masquées.

Par défaut la diapo qui contient la zone de texte sera affichée au lancement du diaporama. Mais si le jour ne correspond pas à l'un de tes jours, elle sera masquée automatiquement.
Dans la macro, j'ai mis le numéro 2 pour cette diapo. Mets bien le bon numéro. Et tu peux également utiliser un nom comme pour les deux autres.

Sub OnSlideShowPageChange(ByVal diaporama As SlideShowWindow)
'macro écrite par m@rina
Dim jour As Date, montexte As String
If diaporama.View.CurrentShowPosition = 1 Then
    ActivePresentation.Slides(2).SlideShowTransition.Hidden = msoFalse
    
    If Weekday(Date, 2) = 1 Then
        ActivePresentation.Slides("lundi").SlideShowTransition.Hidden = msoFalse
        Else
        ActivePresentation.Slides("lundi").SlideShowTransition.Hidden = msoCTrue
    End If

    If Weekday(Date, 2) = 5 Then
        ActivePresentation.Slides("vendredi").SlideShowTransition.Hidden = msoFalse
        Else
        ActivePresentation.Slides("vendredi").SlideShowTransition.Hidden = msoCTrue
    End If

    jour = Date
    Select Case jour
        Case "24/12/2015"
            montexte = "Reveillon de Noël"
        Case "25/12/2015"
            montexte = "Noël"
        Case "3/01/2016"
            montexte = "Sainte Geneviève"
        Case Else
            ActivePresentation.Slides(2).SlideShowTransition.Hidden = msoCTrue
        End Select

    ActivePresentation.Slides(2).Shapes("zone").TextFrame.TextRange.Text = montexte
End If
End Sub

m@rina

Merci mais en faite j'avais deux questions indépendantes.
Pour le lundi et vendredi c'est bon , le code ne premier correspond.

Mais pour celle qui affiche le message en fonction de la date du jour, je voudrais que cette diapo s'affiche uniquement en fonction des jours de l'année ou j'ai un anniversaire qui correspond (une des 40 dates rentrées dans le code)