Bonjour
Ceci pourrait répondre à ta question sur la date avec 45000 une date au hasard:
ActiveWindow.Selection.SlideRange.Shapes("Text Box 4").TextFrame.TextRange.Text = CDate(45000) + 1
Maintenant pour lancer cette macro à l'ouverture :
"Contrairement aux autres applications Office comme Word ou Excel, il n'est pas possible de lancer une macro à l'ouverture d'un fichier PowerPoint.
Pour cela vous devez utiliser une macro-complémentaire avec une routine qui se nomme : Auto_Open(). Cette routine se déclenchera à l'ouverture de PowerPoint (dans la mesure où le complément a bien été chargé."
Partager