Fonction date ou now

Bonjour,

Je cherche à actualiser à travers un code VBA la date actuelle sur une slide powerpoint et je n'arrive pas à utiliser la fonction date pourtant les références Microsoft Excel Object Library sont cochées. Cependant, la fonction now marche mais je ne souhaite avoir que la date et non la date et l'heure.

Quelqu'un aurait une idée de ce qui bloque la fonction date de marcher ?

J'ai l'erreur "projet ou bibliothèque introuvable".

Merci d'avance pour votre aide.

If Not PptShape Is Nothing Then
'si la forme est trouvée on modifie le texte dans la forme'
'récupérer la date de l'extraction'

     Dim currentdate As Date
     currentdate = Date
     PptShape.TextFrame.TextRange.text = CStr(currentdate)
Else
    MsgBox "texte non trouvé"
End If

bonjour,

essaie ceci

PptShape.TextFrame.TextRange.text = format(currentdate,"dd/mm/yyyy")

Bonjour, j'ai du coup remplacé ainsi :

If Not PptShape Is Nothing Then
'si la forme est trouvée on modifie le texte dans la forme'
'récupérer la date de l'extraction'

     Dim currentdate As Date
     PptShape.TextFrame.TextRange.text = format(currentdate,"dd/mm/yyyy")
Else
    MsgBox "texte non trouvé"
End If

Maintenant, j'ai une erreur de projet ou bibliothèque introuvable sur "Format".

bonjour,

décoches les références manquantes s'il y en a.

Je ne suis pas sûre de comprendre ce que veut dire décocher les références manquantes ?

Merci

Bonjour, j'ai réussi à contourner le problème en utilisant le code suivant :

     Dim currentYear As Integer
     Dim currentMonth As Integer
     Dim currentDay As Integer

     currentYear = Year(Now)
     currentMonth = Month(Now)
     currentDay = Day(Now)

     Dim currentDate As Date
     currentDate = DateSerial(currentYear, currentMonth, currentDay)
     PptShape.TextFrame.TextRange.text = CStr(currentDate)

Merci pour votre aide, bonne fin de journée