Sub CreatePresentation()
Dim pptApp As Object
Dim pptPres As Object
Dim slideIndex As Integer
Dim slide As Object
' Créer une nouvelle présentation
Set pptApp = CreateObject("[Link]")
[Link] = True
Set pptPres = [Link]
' Titre de la présentation
slideIndex = slideIndex + 1
Set slide = [Link](slideIndex, 1) ' 1 = Titre
[Link](1).[Link] = "Développement d'une plateforme de
réseau social interne pour l'INSTAT Madagascar"
[Link](2).[Link] = "Mémoire de Licence en Informatique"
& vbCrLf & "Présenté par : [Ton Nom]" & vbCrLf & "Encadrant : [Nom de l'encadrant]"
' Slide 2 - Contexte et problématique
slideIndex = slideIndex + 1
Set slide = [Link](slideIndex, 2) ' 2 = Titre et contenu
[Link](1).[Link] = "Contexte et problématique"
[Link](2).[Link] = "• Contexte de l'INSTAT Madagascar"
& vbCrLf & _
"• Importance de la communication interne" & vbCrLf & _
"• Problème de la gestion des informations au sein de l'institution"
' Slide 3 - Objectifs du projet
slideIndex = slideIndex + 1
Set slide = [Link](slideIndex, 2)
[Link](1).[Link] = "Objectifs du projet"
[Link](2).[Link] = "• Améliorer la communication
interne" & vbCrLf & _
"• Faciliter la gestion des informations" & vbCrLf & _
"• Créer un environnement de travail collaboratif"
' Slide 4 - Architecture de la plateforme
slideIndex = slideIndex + 1
Set slide = [Link](slideIndex, 2)
[Link](1).[Link] = "Architecture de la plateforme"
[Link](2).[Link] = "• Vue d'ensemble du système" &
vbCrLf & _
"• Technologies utilisées : Laravel, [Link], [Link], MySQL, etc." & vbCrLf
& _
"• Architecture basée sur une architecture MVC et une séparation claire des
préoccupations"
' Slide 5 - Fonctionnalités de la plateforme
slideIndex = slideIndex + 1
Set slide = [Link](slideIndex, 2)
[Link](1).[Link] = "Fonctionnalités de la plateforme"
[Link](2).[Link] = "• Gestion des utilisateurs
(inscription, authentification)" & vbCrLf & _
"• Création et gestion de publications" & vbCrLf & _
"• Réactions et commentaires sur les publications" & vbCrLf & _
"• Gestion des groupes et des abonnements" & vbCrLf & _
"• Notifications par email"
' Slide 6 - Outils et technologies utilisés
slideIndex = slideIndex + 1
Set slide = [Link](slideIndex, 2)
[Link](1).[Link] = "Outils et technologies utilisés"
[Link](2).[Link] = "• Laravel pour le back-end" &
vbCrLf & _
"• [Link] pour le front-end" & vbCrLf & _
"• [Link] pour l'intégration front-end/back-end" & vbCrLf & _
"• MySQL pour la base de données" & vbCrLf & _
"• Tailwind CSS pour le design"
' Slide 7 - Problèmes rencontrés
slideIndex = slideIndex + 1
Set slide = [Link](slideIndex, 2)
[Link](1).[Link] = "Défis et solutions"
[Link](2).[Link] = "• Problèmes de gestion de la
session utilisateur" & vbCrLf & _
"• Intégration des notifications par email" & vbCrLf & _
"• Sécurisation des données utilisateurs"
' Slide 8 - Résultats obtenus
slideIndex = slideIndex + 1
Set slide = [Link](slideIndex, 2)
[Link](1).[Link] = "Résultats et impacts"
[Link](2).[Link] = "• Plateforme fonctionnelle avec
toutes les fonctionnalités principales" & vbCrLf & _
"• Amélioration de la communication interne" & vbCrLf & _
"• Adoption par les utilisateurs au sein de l'INSTAT"
' Slide 9 - Conclusion et perspectives
slideIndex = slideIndex + 1
Set slide = [Link](slideIndex, 2)
[Link](1).[Link] = "Conclusion et perspectives"
[Link](2).[Link] = "• Résumé des contributions du
projet" & vbCrLf & _
"• Améliorations futures possibles : ajout de nouvelles fonctionnalités,
optimisation des performances" & vbCrLf & _
"• Possibilité d'extension à d'autres institutions"
' Slide 10 - Questions
slideIndex = slideIndex + 1
Set slide = [Link](slideIndex, 2)
[Link](1).[Link] = "Questions et réponses"
[Link](2).[Link] = "Merci pour votre attention. Je suis
à votre disposition pour répondre à vos questions."
End Sub